tcl tinkering.

[openocd.git] / src / target / target / at91eb40a.tcl

diff --git a/src/target/target/at91eb40a.tcl b/src/target/target/at91eb40a.tcl
index ab6619c58ac3cfd2a117fa066d98bf4537c63b4f..13ed0f824c3f214c3c05bbb65d0f831e618135fa 100644 (file)
--- a/src/target/target/at91eb40a.tcl
+++ b/src/target/target/at91eb40a.tcl
@@ -45,5 +45,11 @@ proc target_reset_0 {} {
        openocd {mww 0xffff0010 0x100}\r
        openocd {mww 0xffff0034 0x100}\r
        set reset_count [expr $reset_count+1]\r
-       puts "Testing reset $reset_count !"\r
+       echo "Testing reset $reset_count !"\r
+}\r
+\r
+proc target_pre_reset_0 {} {\r
+       global reset_count\r
+       set reset_count [expr $reset_count+1]\r
+       echo "Testing pre_reset $reset_count !"\r
 }\r