From: ian <ian>
Date: Wed, 14 Dec 2005 13:11:23 +0000 (+0000)
Subject: slightly improved formatting and bug fixes
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=37d084395b2bde6c2283f7be551e866b386fe354;p=trains.git

slightly improved formatting and bug fixes
---

diff --git a/detpic/crashread b/detpic/crashread
index 0e1cc15..8756b1a 100755
--- a/detpic/crashread
+++ b/detpic/crashread
@@ -353,13 +353,13 @@ for {set si 1} {$si <= $stackdepth} {incr si} {
 	append se [string range $stack \
 		[expr ($si-1)*6+$ch*2] [expr ($si-1)*6+$ch*2+1]]
     }
-    set symi {0 (start)}
+    set symaddr 0; set symsym (start)
     foreach symi $symbolsbylockind(program) {
 	if {[lindex $symi 0] > $se} break
+	manyset $symi symaddr symsym
     }
-    manyset $symi symaddr symsym
     p [format " 0d%02d  %6x = %6x + %s\n" $si $se \
-	    [expr {$se-$symaddr}] $symsym]
+	    [expr {$se-$symaddr}] [join $symsym]]
 }
 stack_chkptr [expr {$stackdepth+1}]