2bc4dee7e6
The 'flash banks' command produces a list that needs to be formatted properly for GDB's 'mem info' to work properly. The flash_banks TCL wrapper provided this formatting, but wrappers no longer work for second-level commands as they did in the past. With this patch, the 'flash_banks' command can be used with the new command syntax and display the required information.
17 lines
466 B
Tcl
17 lines
466 B
Tcl
# 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
|
|
}
|