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

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