zcy
/
tinyriscv-openocd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Evaluate 'script' in the global scope 

Scripts sourced via 'script' should evaluate in the global
scope to make it easy to set and reference global variables.

Signed-off-by: Steve Bennett <steveb@workware.net.au>
__archive__
Steve Bennett 2011-08-11 12:10:54 +10:00 committed by Øyvind Harboe
parent f25ffaf2b2
commit a62d8f2271
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/helper/startup.tcl
View File

@ -53,9 +53,9 @@ proc find {filename} {
add_usage_text find "<file>" add_usage_text find "<file>"
add_help_text find "print full path to file according to OpenOCD search rules" add_help_text find "print full path to file according to OpenOCD search rules"
# Run script # Find and run a script
proc script {filename} { proc script {filename} {
source [find $filename] uplevel #0 source [find $filename]
} }
add_help_text script "filename of OpenOCD script (tcl) to run" add_help_text script "filename of OpenOCD script (tcl) to run"
add_usage_text script "<file>" add_usage_text script "<file>"