diff options
| author | oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60> | 2008-07-10 09:22:28 +0000 |
|---|---|---|
| committer | oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60> | 2008-07-10 09:22:28 +0000 |
| commit | 5a2b824b2650b5a7ee8366f6dfca5b6c2a9c3033 (patch) | |
| tree | 3cc7d83242504dc6e3f62a4feb2635c65c370ee6 /src/tcl | |
| parent | bfa8c1b3213d5d2541648f7f3db460f81d949fb1 (diff) | |
| download | openocd+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/tcl')
| -rw-r--r-- | src/tcl/commands.tcl | 8 |
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 |