summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authoroharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>2008-07-10 09:22:28 +0000
committeroharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>2008-07-10 09:22:28 +0000
commit5a2b824b2650b5a7ee8366f6dfca5b6c2a9c3033 (patch)
tree3cc7d83242504dc6e3f62a4feb2635c65c370ee6 /src
parentbfa8c1b3213d5d2541648f7f3db460f81d949fb1 (diff)
downloadopenocd+libswd-5a2b824b2650b5a7ee8366f6dfca5b6c2a9c3033.tar.gz
openocd+libswd-5a2b824b2650b5a7ee8366f6dfca5b6c2a9c3033.tar.bz2
openocd+libswd-5a2b824b2650b5a7ee8366f6dfca5b6c2a9c3033.tar.xz
openocd+libswd-5a2b824b2650b5a7ee8366f6dfca5b6c2a9c3033.zip
fix quoting problem when handling OpenOCD commands.
git-svn-id: svn://svn.berlios.de/openocd/trunk@784 b42882b7-edfa-0310-969c-e2dbd0fdcd60
Diffstat (limited to 'src')
-rw-r--r--src/tcl/commands.tcl8
1 files changed, 7 insertions, 1 deletions
diff --git a/src/tcl/commands.tcl b/src/tcl/commands.tcl
index 1da8f1b2..8d7cdb82 100644
--- 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