mirror of
git://git.code.sf.net/p/openocd/code
synced 2025-07-19 10:08:37 +10:00
19 lines
523 B
Tcl
19 lines
523 B
Tcl
# implements Tcl procedures/functions
|
|
proc peek {address} {
|
|
return [openocd_throw "mdw $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"]]
|
|
openocd "verify_image $filename [flash] bin"]]
|
|
echo "Successfully ran production procedure"
|
|
}
|
|
|
|
proc board_test {} {
|
|
echo "Production test not implemented"
|
|
}
|