From 37d084395b2bde6c2283f7be551e866b386fe354 Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Wed, 14 Dec 2005 13:11:23 +0000
Subject: [PATCH] slightly improved formatting and bug fixes

---
 detpic/crashread | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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}]
 
-- 
2.30.2