Tcl Source Code

Artifact 5adbede0722cb22fccf0afa717fbd13df3dd013a:

Attachment "regexpcrash.tcl" to ticket [947070ffff] added by kennykb 2004-05-03 23:36:09.

---

interp recursionlimit {} 0x7fffffff
proc a { max } {
    if { [info level] < $max } {
	set ::depth [info level]
	a $max
    } else {
	regexp {^ ?} x
    }
}
catch { a 99999 }
set depth2 $depth
puts [list [catch { a $::depth } result }] $result [expr { $depth2 - $depth }]]