From: Pietro C. <ga...@ga...> - 2013-04-03 15:42:31
|
On 2013-Apr-03, 09:10, Donald G Porter wrote: > > Tcl/Tk 8.5.14 Release Announcement > April 3, 2013 Thanks Donald, I have only one test case failing on FreeBSD. Any ideas here? FreeBSD 10.0-CURRENT r248787 amd64 ==== stack-3.1 enough room for regexp near recursion limit FAILED ==== Contents of test case: # do this in a sub process in case it segfaults exec [interpreter] << { interp recursionlimit {} 10000 set depth 0 proc a { max } { if { [info level] < $max } { set ::depth [info level] a $max } else { regexp {^ ?} x } } catch { a 10001 } set depth2 $depth puts [list [a $depth] [expr { $depth2 - $depth }]] } ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: child killed: segmentation violation while executing "exec [interpreter] << { interp recursionlimit {} 10000 set depth 0 proc a { max } { if { [info level] < $max } { set ::depth [info level] ..." ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: CHILDKILLED 26500 SIGSEGV {segmentation violation} ==== stack-3.1 FAILED -- Pietro Cerutti ga...@ga... PGP Public Key: http://gahr.ch/pgp |