added yours sincerely for files where I feel that I've made non-trivial contributions.

[fw/openocd] / src / helper / startup.tcl

diff --git a/src/helper/startup.tcl b/src/helper/startup.tcl
index d3ddb30c06179fa137370668bf882e5661c66542..e60ad976f467b2fa1fee7f846a633c10cf2bcbe4 100644 (file)
--- a/src/helper/startup.tcl
+++ b/src/helper/startup.tcl
@@ -136,7 +136,7 @@ proc find {filename} {
                return $t
        }  
        # make sure error message matches original input string
-       return [ocd_find $filename]
+       return -code error "Can't find $filename"
 }
 add_help_text find "<file> - print full path to file according to OpenOCD search rules"
 
@@ -152,3 +152,12 @@ proc script {filename} {
 add_help_text script "<filename> - filename of OpenOCD script (tcl) to run"
 
 
+
+# Handle GDB 'R' packet. Can be overriden by configuration script,
+# but it's not something one would expect target scripts to do
+# normally
+proc ocd_gdb_restart {target_num} {
+       # Fix!!! we're resetting all targets here! Really we should reset only
+       # one target
+       reset halt
+}
\ No newline at end of file