crash in TclExecuteByteCode


I source the following script the the tcl is crashed. I am not sure whether this has a patch on this. I used tcl8.4.

--------------------------------------------------------------------------------
tclsh8.4
% source b.tcl
% check
Segmentation Fault(coredump)
-------------------------------------------------------------------------------
b.tcl is like below.

proc waitfor { args } {
        puts $args
}
proc check { } {
        for { set i 0 } { $i < 1000 } { incr i } {
                catch { waitfor "aaa "bbb" } result
        }
}
-----------------------------------------------------------------------------------

the dbx stack is below.

t@1 (l@1) terminated by signal SEGV (no mapping at the fault address)
Current function is TclExecuteByteCode
2001 varPtr = &(varFramePtr->compiledLocals[opnd]);
(dbx) where

current thread: t@1
=>[1] TclExecuteByteCode(interp = 0x39cf8, codePtr = 0x5f408), line 2001 in "tclExecute.c"
[2] TclCompEvalObj(interp = 0x39cf8, objPtr = 0x3f570), line 1008 in "tclExecute.c"
[3] TclObjInterpProc(clientData = 0x891c0, interp = 0x39cf8, objc = 1, objv = 0x40fac), line 1082 in "tclProc.c"
[4] TclEvalObjvInternal(interp = 0x39cf8, objc = 1, objv = 0x40fac, command = (nil), length = 0, flags = 0), line 3048 in "tclBasic.c"
[5] TclExecuteByteCode(interp = 0x39cf8, codePtr = 0x48150), line 1431 in "tclExecute.c"
[6] TclCompEvalObj(interp = 0x39cf8, objPtr = 0x3cfc0), line 1008 in "tclExecute.c"
[7] Tcl_EvalObjEx(interp = 0x39cf8, objPtr = 0x3cfc0, flags = 131072), line 3944 in "tclBasic.c"
[8] Tcl_RecordAndEvalObj(interp = 0x39cf8, cmdPtr = 0x3cfc0, flags = 131072), line 142 in "tclHistory.c"
[9] Tcl_Main(argc = 1, argv = 0xeffff644, appInitProc = 0x11718 = &Tcl_AppInit(Tcl_Interp *interp)), line 390 in "tclMain.c"
[10] main(argc = 1, argv = 0xeffff644), line 90 in "tclAppInit.c"
(dbx)
.

Relevant Pages