[PD-cvs] pd/src desire.tk,1.1.2.600.2.100,1.1.2.600.2.101
Mathieu Bouchard
matju at users.sourceforge.net
Mon Dec 18 23:30:09 CET 2006
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
}
More information about the Pd-cvs
mailing list