tcl tinkering.

git-svn-id: svn://svn.berlios.de/openocd/trunk@748 b42882b7-edfa-0310-969c-e2dbd0fdcd60
This commit is contained in:
oharboe 2008-07-04 14:05:08 +00:00
parent bece2176c0
commit e9488b9ad8
2 changed files with 9 additions and 1 deletions

View File

@ -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 !"
}

View File

@ -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"]]