Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2051
Modified Files: Tag: desiredata desire.tk Log Message: fixed gdb backtrace handling
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.100 retrieving revision 1.1.2.600.2.101 diff -C2 -d -r1.1.2.600.2.100 -r1.1.2.600.2.101 *** desire.tk 18 Dec 2006 21:15:59 -0000 1.1.2.600.2.100 --- desire.tk 18 Dec 2006 22:30:05 -0000 1.1.2.600.2.101 *************** *** 198,202 **** def Manager call {} { global poolset ! #if {[llength $@q]} {post "client queue %d" [llength $@q]}
for {set i 0} {$i < [llength $@q]} {incr i} { --- 198,202 ---- def Manager call {} { global poolset ! # if {[llength $@q]} {post "client queue %d" [llength $@q]}
for {set i 0} {$i < [llength $@q]} {incr i} { *************** *** 206,210 **** if {[catch {$o draw_maybe}]} {puts [error_dump]} } else { ! puts " trys to draw ZOMBIe!!!!! $o" } if {$i == [expr [llength $@q] - 1]} {set @q {}} --- 206,210 ---- if {[catch {$o draw_maybe}]} {puts [error_dump]} } else { ! puts " tries to draw ZOMBIE $o" } if {$i == [expr [llength $@q] - 1]} {set @q {}} *************** *** 807,811 **** if {[catch {eval $sock_lobby}]} { global errorCode errorInfo ! switch -regexp -- $errorInfo {"^missing close-brace" {continue}} error_dump } --- 807,814 ---- if {[catch {eval $sock_lobby}]} { global errorCode errorInfo ! switch -regexp -- $errorInfo { "^missing close-brace" { ! puts "waiting for the end of: [string range $sock_lobby 0 40]" ! continue ! }} error_dump } *************** *** 830,837 **** if {[regexp {^Program received signal (\w+), (.*).} $line bogus sig1 sig2]} { set where "" ! while {![eof $gdb]} { set line [gets $gdb] regsub {^(gdb) ?} $line {} line append where "$line\n" } OopsDialog new $sig1 $sig2 $where --- 833,844 ---- if {[regexp {^Program received signal (\w+), (.*).} $line bogus sig1 sig2]} { set where "" ! # can anyone figure out why a long backtrace won't be slurped in this case? ! set timeout [expr [clock seconds]+2] ! #fconfigure $gdb -blocking 1 -buffering none ! while {![eof $gdb] && [clock seconds] < $timeout} { set line [gets $gdb] regsub {^(gdb) ?} $line {} line append where "$line\n" + #puts "where size = [string length $where]" } OopsDialog new $sig1 $sig2 $where *************** *** 839,843 **** post "[gdb] %s" $line } ! after 250 poll_gdb }
--- 846,850 ---- post "[gdb] %s" $line } ! after 100 poll_gdb }