Commit e9488b9a authored by oharboe's avatar oharboe
Browse files

tcl tinkering.

git-svn-id: svn:// b42882b7-edfa-0310-969c-e2dbd0fdcd60
parent bece2176
......@@ -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 !"
......@@ -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"]]
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