blob: f42047f7f740f66924277b21c74de173359fb4c9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
# implements Tcl procedures/functions
proc peek {address} {
return [openocd mdw $address]
}
# Production 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"
}
|