Commit e9488b9a authored by oharboe's avatar oharboe
Browse files

tcl tinkering.

git-svn-id: svn://svn.berlios.de/openocd/trunk@748 b42882b7-edfa-0310-969c-e2dbd0fdcd60
parent bece2176
...@@ -45,5 +45,11 @@ proc target_reset_0 {} { ...@@ -45,5 +45,11 @@ proc target_reset_0 {} {
openocd {mww 0xffff0010 0x100} openocd {mww 0xffff0010 0x100}
openocd {mww 0xffff0034 0x100} openocd {mww 0xffff0034 0x100}
set reset_count [expr $reset_count+1] 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 !"
} }
...@@ -4,6 +4,8 @@ proc peek {address} { ...@@ -4,6 +4,8 @@ proc peek {address} {
} }
# Production command # Production command
# FIX!!! need to figure out how to feed back relevant output
# from e.g. "flash banks" command...
proc board_produce {filename serialnumber} { proc board_produce {filename serialnumber} {
openocd "reset init" openocd "reset init"
openocd "flash write_image erase $filename [flash] bin"]] openocd "flash write_image erase $filename [flash] bin"]]
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment