From ffe9257a1766ece36a75a4b33d9fa6959182e970 Mon Sep 17 00:00:00 2001
From: oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Date: Wed, 16 Jul 2008 12:44:00 +0000
Subject: flash_banks now follow OpenOCD scripting API rules

git-svn-id: svn://svn.berlios.de/openocd/trunk@814 b42882b7-edfa-0310-969c-e2dbd0fdcd60
---
 src/startup.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/startup.tcl')

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
-- 
cgit v1.2.3