diff options
| -rw-r--r-- | src/flash/flash.c | 5 | ||||
| -rw-r--r-- | src/startup.tcl | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/src/flash/flash.c b/src/flash/flash.c index 8224e50f..b51db58c 100644 --- a/src/flash/flash.c +++ b/src/flash/flash.c @@ -164,10 +164,15 @@ static int Jim_Command_flash_banks(Jim_Interp *interp, int argc, Jim_Obj *const Jim_Obj *elem=Jim_NewListObj(interp, NULL, 0); + Jim_ListAppendElement(interp, elem, Jim_NewStringObj(interp, "name", -1)); Jim_ListAppendElement(interp, elem, Jim_NewStringObj(interp, p->driver->name, -1)); + Jim_ListAppendElement(interp, elem, Jim_NewStringObj(interp, "base", -1)); Jim_ListAppendElement(interp, elem, Jim_NewIntObj(interp, p->base)); + Jim_ListAppendElement(interp, elem, Jim_NewStringObj(interp, "size", -1)); Jim_ListAppendElement(interp, elem, Jim_NewIntObj(interp, p->size)); + Jim_ListAppendElement(interp, elem, Jim_NewStringObj(interp, "bus_width", -1)); Jim_ListAppendElement(interp, elem, Jim_NewIntObj(interp, p->bus_width)); + Jim_ListAppendElement(interp, elem, Jim_NewStringObj(interp, "chip_width", -1)); Jim_ListAppendElement(interp, elem, Jim_NewIntObj(interp, p->chip_width)); Jim_ListAppendElement(interp, list, elem); diff --git a/src/startup.tcl b/src/startup.tcl index 1f1d1e21..5fe7c8fe 100644 --- a/src/startup.tcl +++ b/src/startup.tcl @@ -46,7 +46,7 @@ proc flash_banks_pretty {} { if {$i > 0} { set result "$result\n" } - set result [format "$result#%d: %s at 0x%08x, size 0x%08x, buswidth %d, chipwidth %d" $i [lindex $a 0] [lindex $a 1] [lindex $a 2] [lindex $a 3] [lindex $a 4]] + 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 |