diff options
author | Zachary T Welch <zw@superlucidity.net> | 2009-12-06 21:30:21 -0800 |
---|---|---|
committer | Zachary T Welch <zw@superlucidity.net> | 2009-12-06 21:39:35 -0800 |
commit | 30a6e683b85291b8248a2f6189aa292fdf43162d (patch) | |
tree | 29da5c15eb238cfe8970b20cacc01f9c6d47da9c /src/flash/startup.tcl | |
parent | 2bc4dee7e64662c7ca24b83cfa566bcca68cb3b4 (diff) |
add 'flash list', rewrite 'flash banks'
Rename the existing 'flash banks' implementation as 'flash list', and
replace the broken 'flash_banks' TCL wrapper with a new command handler.
Adds documentation for the new 'flash list' command in the user guide.
Diffstat (limited to 'src/flash/startup.tcl')
-rw-r--r-- | src/flash/startup.tcl | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/src/flash/startup.tcl b/src/flash/startup.tcl index 2c335d9f..6cb7d8e8 100644 --- a/src/flash/startup.tcl +++ b/src/flash/startup.tcl @@ -1,16 +1,2 @@ # 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 -} |