interesting
/
riscv-openocd
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fix quoting problem when handling OpenOCD commands. 

git-svn-id: svn://svn.berlios.de/openocd/trunk@784 b42882b7-edfa-0310-969c-e2dbd0fdcd60
This commit is contained in:
oharboe 2008-07-10 09:22:28 +00:00
parent bfa8c1b321
commit 5a2b824b26
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/tcl/commands.tcl
View File

@ -45,7 +45,13 @@ proc flash args {
# If a fn is unknown to Tcl, we try to execute it as an OpenOCD command # If a fn is unknown to Tcl, we try to execute it as an OpenOCD command
proc unknown {args} { proc unknown {args} {
if {[string length $args]>0} { 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 # openocd_throw outputs while running and also sets the
# primary return value to the output of the command # primary return value to the output of the command