diff options
Diffstat (limited to 'src/flash/startup.tcl')
| -rw-r--r-- | src/flash/startup.tcl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/flash/startup.tcl b/src/flash/startup.tcl new file mode 100644 index 00000000..fcebbe01 --- /dev/null +++ b/src/flash/startup.tcl @@ -0,0 +1,16 @@ +# Defines basic Tcl procs for OpenOCD flash module + +# Show flash in human readable form +# This is an example of a human readable form of a low level fn +proc flash_banks {} { + set i 0 + set result "" + foreach {a} [ocd_flash_banks] { + if {$i > 0} { + set result "$result\n" + } + set result [format "$result#%d: %s at 0x%08x, size 0x%08x, buswidth %d, chipwidth %d" $i $a(name) $a(base) $a(size) $a(bus_width) $a(chip_width)] + set i [expr $i+1] + } + return $result +} |