slightly improved formatting and bug fixes

diff --git a/detpic/crashread b/detpic/crashread
index 0e1cc15d93349c3f222c931345df1313e818ee52..8756b1ad6b0c5a7d31ab9b723f7532e1746cb9d5 100755 (executable)
--- 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}]