From: oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Date: Fri, 4 Jul 2008 14:05:08 +0000 (+0000)
Subject: tcl tinkering.
X-Git-Tag: v0.1.0~548
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=e9488b9ad8a274465bcd11fa482ef3846f066632;p=openocd

tcl tinkering.

git-svn-id: svn://svn.berlios.de/openocd/trunk@748 b42882b7-edfa-0310-969c-e2dbd0fdcd60
---

diff --git a/src/target/target/at91eb40a.tcl b/src/target/target/at91eb40a.tcl
index ab6619c5..13ed0f82 100644
--- a/src/target/target/at91eb40a.tcl
+++ b/src/target/target/at91eb40a.tcl
@@ -45,5 +45,11 @@ proc target_reset_0 {} {
 	openocd {mww 0xffff0010 0x100}
 	openocd {mww 0xffff0034 0x100}
 	set reset_count [expr $reset_count+1]
-	puts "Testing reset $reset_count !"
+	echo "Testing reset $reset_count !"
+}
+
+proc target_pre_reset_0 {} {
+	global reset_count
+	set reset_count [expr $reset_count+1]
+	echo "Testing pre_reset $reset_count !"
 }
diff --git a/src/tcl/commands.tcl b/src/tcl/commands.tcl
index d671d786..81f7b6f1 100644
--- a/src/tcl/commands.tcl
+++ b/src/tcl/commands.tcl
@@ -4,6 +4,8 @@ proc peek {address} {
 }
 
 # Production command
+# FIX!!! need to figure out how to feed back relevant output
+# from e.g. "flash banks" command...
 proc board_produce {filename serialnumber} {
 	openocd "reset init"
 	openocd "flash write_image erase $filename [flash] bin"]]