[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