Tcl Source Code

Artifact [927c7f6976]
Login

Artifact 927c7f6976d2b7cf9b499b8b50b3d5cae94600f6:

Attachment "gdb" to ticket [3006741fff] added by coldstore 2010-05-25 10:29:16.
Program received signal SIGSEGV, Segmentation fault.
Tcl_LogCommandInfo (interp=0x804da18, script=0x88ecae8 "::apply {r {\n    variable pending 0\n    variable starting 1\n    set r [::yield]\n    \n    while {$starting || $pending > 0} {\n\tset starting 0\t;# one shot at starting\n\t# this coroutine loops around acce"..., command=0x88ecae8 "::apply {r {\n    variable pending 0\n    variable starting 1\n    set r [::yield]\n    \n    while {$starting || $pending > 0} {\n\tset starting 0\t;# one shot at starting\n\t# this coroutine loops around acce"..., length=3142) at /home/colin/Desktop/packages/tcl/generic/tclNamesp.c:4964
(gdb) backtrace
#0  Tcl_LogCommandInfo (interp=0x804da18, script=0x88ecae8 "::apply {r {\n    variable pending 0\n    variable starting 1\n    set r [::yield]\n    \n    while {$starting || $pending > 0} {\n\tset starting 0\t;# one shot at starting\n\t# this coroutine loops around acce"..., command=0x88ecae8 "::apply {r {\n    variable pending 0\n    variable starting 1\n    set r [::yield]\n    \n    while {$starting || $pending > 0} {\n\tset starting 0\t;# one shot at starting\n\t# this coroutine loops around acce"..., length=3142) at /home/colin/Desktop/packages/tcl/generic/tclNamesp.c:4964
#1  0x001c22cf in TclExecuteByteCode (interp=0x804da18, codePtr=0x88ddc88) at /home/colin/Desktop/packages/tcl/generic/tclExecute.c:6420
#2  0x0015de6f in NRCallTEBC (data=0x1, interp=0x804da18, result=0) at /home/colin/Desktop/packages/tcl/generic/tclBasic.c:4389
#3  0x0015dc5a in TclNRRunCallbacks (interp=0x804da18, result=0, rootPtr=0x80d9060, tebcCall=0) at /home/colin/Desktop/packages/tcl/generic/tclBasic.c:4313
#4  0x00160a12 in TclEvalObjEx (interp=0x804da18, objPtr=0x8923ac8, flags=131072, invoker=0x0, word=0) at /home/colin/Desktop/packages/tcl/generic/tclBasic.c:5926
#5  0x00160a5b in Tcl_EvalObjEx (interp=0x804da18, objPtr=0x8923ac8, flags=131072) at /home/colin/Desktop/packages/tcl/generic/tclBasic.c:5907
#6  0x0021aeb8 in AfterProc (clientData=0x8923ca8) at /home/colin/Desktop/packages/tcl/generic/tclTimer.c:1173
#7  0x0021ac26 in TimerHandlerEventProc (evPtr=0x88fef68, flags=<value optimised out>) at /home/colin/Desktop/packages/tcl/generic/tclTimer.c:587
#8  0x001fafa3 in Tcl_ServiceEvent (flags=-3) at /home/colin/Desktop/packages/tcl/generic/tclNotify.c:671
#9  0x001fb35f in Tcl_DoOneEvent (flags=-3) at /home/colin/Desktop/packages/tcl/generic/tclNotify.c:972
#10 0x001bb0e7 in Tcl_VwaitObjCmd (clientData=0x0, interp=0x804da18, objc=2, objv=0x804e648) at /home/colin/Desktop/packages/tcl/generic/tclEvent.c:1402
#11 0x0015b0c5 in NRRunObjProc (data=0x85a2994, interp=0x804da18, result=0) at /home/colin/Desktop/packages/tcl/generic/tclBasic.c:4366
#12 0x0015dc5a in TclNRRunCallbacks (interp=0x804da18, result=0, rootPtr=0x80d5720, tebcCall=1) at /home/colin/Desktop/packages/tcl/generic/tclBasic.c:4313
#13 0x001c66b4 in TclExecuteByteCode (interp=0x804da18, codePtr=0x811c338) at /home/colin/Desktop/packages/tcl/generic/tclExecute.c:2816
#14 0x0015de6f in NRCallTEBC (data=0x1, interp=0x804da18, result=0) at /home/colin/Desktop/packages/tcl/generic/tclBasic.c:4389
#15 0x0015dc5a in TclNRRunCallbacks (interp=0x804da18, result=0, rootPtr=0x0, tebcCall=0) at /home/colin/Desktop/packages/tcl/generic/tclBasic.c:4313
#16 0x0015f683 in Tcl_EvalObjv (interp=0x804da18, objc=2, objv=0x804e490, flags=2097152) at /home/colin/Desktop/packages/tcl/generic/tclBasic.c:4085
#17 0x0015fd26 in TclEvalEx (interp=0x804da18, script=0x8069990 "#! /usr/bin/env tclsh\n\nif {0} {\n    # this will run Wub under the experimental Package facility\n    lappend auto_path [file dirname [pwd]]/Utilities/\n    package require Package\t;# start the cooption "..., numBytes=440, flags=0, line=16, clNextOuter=0x0, outerScript=0x8069990 "#! /usr/bin/env tclsh\n\nif {0} {\n    # this will run Wub under the experimental Package facility\n    lappend auto_path [file dirname [pwd]]/Utilities/\n    package require Package\t;# start the cooption "...) at /home/colin/Desktop/packages/tcl/generic/tclBasic.c:5255
#18 0x001602b6 in Tcl_EvalEx (interp=0x804da18, script=0x8069990 "#! /usr/bin/env tclsh\n\nif {0} {\n    # this will run Wub under the experimental Package facility\n    lappend auto_path [file dirname [pwd]]/Utilities/\n    package require Package\t;# start the cooption "..., numBytes=440, flags=0) at /home/colin/Desktop/packages/tcl/generic/tclBasic.c:4911
#19 0x001eeabf in Tcl_FSEvalFileEx (interp=0x804da18, pathPtr=0x8067fe0, encodingName=0x0) at /home/colin/Desktop/packages/tcl/generic/tclIOUtil.c:1753
#20 0x001f5590 in Tcl_Main (argc=<value optimised out>, argv=0xbffff9bc, appInitProc=0x80486f0 <Tcl_AppInit>) at /home/colin/Desktop/packages/tcl/generic/tclMain.c:355
#21 0x08048781 in main (argc=2, argv=0xbffff9b4) at /home/colin/Desktop/packages/tcl/unix/tclAppInit.c:85
(gdb) p *((Interp*)interp)->framePtr
$1 = {nsPtr = 0x0, isProcCallFrame = 7, objc = 0, objv = 0x0, callerPtr = 0x2, callerVarPtr = 0x8174fd0, level = 9, procPtr = 0x87e1180, varTablePtr = 0x8198648, numCompiledLocals = 137808784, compiledLocals = 0x8181708, clientData = 0x88fe5b0, localCachePtr = 0x831e640, tailcallPtr = 0x80f7b78}
(gdb) p *((Interp*)interp)->framePtr->callerVarPtr
$2 = {nsPtr = 0x69746361, isProcCallFrame = 2037672310, objc = 1852398376, objv = 0x63206f66, callerPtr = 0x756f726f, callerVarPtr = 0x656e6974, level = 1528834397, procPtr = 0x72707865, varTablePtr = 0x67247b20, numCompiledLocals = 1701011826, compiledLocals = 0x5b202b20, clientData = 0x636f6c63, localCachePtr = 0x696d206b, tailcallPtr = 0x73696c6c}