fix quoting problem when handling OpenOCD commands.

git-svn-id: svn://svn.berlios.de/openocd/trunk@784 b42882b7-edfa-0310-969c-e2dbd0fdcd60

diff --git a/src/tcl/commands.tcl b/src/tcl/commands.tcl
index 1da8f1b2a029e0fb772dd511974a5dee93bcf04f..8d7cdb823486aab74700f5ae846a112093c67c79 100644 (file)
--- a/src/tcl/commands.tcl
+++ b/src/tcl/commands.tcl
@@ -45,7 +45,13 @@ proc flash args {
 # If a fn is unknown to Tcl, we try to execute it as an OpenOCD command
 proc unknown {args} {
        if {[string length $args]>0} {
-               openocd_throw $args
+               set cmd ""
+               # We need to add back quotes for arguments w/space
+               # for args without space, we can add quotes anyway
+               foreach {a} $args {
+                       set cmd "$cmd \"$a\""
+               }
+               openocd_throw $cmd
        }
        # openocd_throw outputs while running and also sets the
        # primary return value to the output of the command