Tcl Source Code

Artifact [56f7468134]
Login

Artifact 56f7468134a40c88264f1bf74b2a881966fd071a:

Attachment "backtrace.txt" to ticket [1888596fff] added by eriklns 2008-02-07 15:57:05.
(gdb) bt full
#0  0xb7f7b8f3 in DeleteScriptRecord (interp=0x804d5c0, chanPtr=0x81fb9c0, mask=2)
    at /usr/local/src/SOURCES/tcl8.4.17/unix/../generic/tclIO.c:7412
        statePtr = (ChannelState *) 0x8497b60
        esPtr = (EventScriptRecord *) 0xffff
        prevEsPtr = (EventScriptRecord *) 0x84980c8
#1  0xb7f7bb14 in TclChannelEventScriptInvoker (clientData=0x8451a10, mask=2)
    at /usr/local/src/SOURCES/tcl8.4.17/unix/../generic/tclIO.c:7538
        interp = (Tcl_Interp *) 0x804d5c0
        chanPtr = (Channel *) 0x81fb9c0
        esPtr = (EventScriptRecord *) 0x8451a10
        result = 1
#2  0xb7f7b4b9 in Tcl_NotifyChannel (channel=0x8448ff8, mask=2)
    at /usr/local/src/SOURCES/tcl8.4.17/unix/../generic/tclIO.c:7012
        chanPtr = (Channel *) 0x8448ff8
        statePtr = (ChannelState *) 0x841f0b8
        chPtr = (ChannelHandler *) 0x8481a08
        tsdPtr = (ThreadSpecificData *) 0x804b210
        nh = {nextHandlerPtr = 0x0, nestedHandlerPtr = 0x0}
        upChanPtr = (Channel *) 0x804d520
        upTypePtr = (Tcl_ChannelType *) 0xb7fc9ff4
#3  0xb7f7b66d in ChannelTimerProc (clientData=0x8448ff8)
    at /usr/local/src/SOURCES/tcl8.4.17/unix/../generic/tclIO.c:7185
        chanPtr = (Channel *) 0x8448ff8
        statePtr = (ChannelState *) 0x841f0b8
#4  0xb7fa4a50 in TimerHandlerEventProc (evPtr=0x846fd18, flags=-3)
    at /usr/local/src/SOURCES/tcl8.4.17/unix/../generic/tclTimer.c:546
        timerHandlerPtr = (TimerHandler *) 0x8466bc8
        nextPtrPtr = (TimerHandler **) 0x804d520
        time = {sec = 1202169162, usec = 496485}
        currentTimerId = 53
        tsdPtr = (ThreadSpecificData *) 0x804d520
#5  0xb7f90799 in Tcl_ServiceEvent (flags=-3)
    at /usr/local/src/SOURCES/tcl8.4.17/unix/../generic/tclNotify.c:640
        evPtr = (Tcl_Event *) 0x846fd18
        prevPtr = (Tcl_Event *) 0x0
        proc = (Tcl_EventProc *) 0xb7fa499c <TimerHandlerEventProc>
        result = 138870040
        tsdPtr = (ThreadSpecificData *) 0x804b378
#6  0xb7f90ba3 in Tcl_DoOneEvent (flags=-3)
---Type <return> to continue, or q <return> to quit---
    at /usr/local/src/SOURCES/tcl8.4.17/unix/../generic/tclNotify.c:945
        result = 0
        oldMode = 0
        sourcePtr = (EventSource *) 0x0
        timePtr = (Tcl_Time *) 0x804b390
        tsdPtr = (ThreadSpecificData *) 0x804b378
#7  0xb7f5c98a in Tcl_VwaitObjCmd (clientData=0x0, interp=0x804d5c0, objc=2, objv=0x804f39c)
    at /usr/local/src/SOURCES/tcl8.4.17/unix/../generic/tclEvent.c:1101
        done = 0
        foundEvent = 1
        nameString = 0x811cc70 "forever"
#8  0xb7f2b6c5 in TclEvalObjvInternal (interp=0x804d5c0, objc=2, objv=0x804f39c, command=0x0,
    length=0, flags=0) at /usr/local/src/SOURCES/tcl8.4.17/unix/../generic/tclBasic.c:3219
        cmdPtr = (Command *) 0x8051f90
        iPtr = (Interp *) 0x804d5c0
        newObjv = (Tcl_Obj **) 0x80bf580
        i = 134553488
        savedVarFramePtr = (CallFrame *) 0x0
        code = 0
        traceCode = 0
        checkTraces = 1
        savedNsPtr = (Namespace *) 0x0
#9  0xb7f5e634 in TclExecuteByteCode (interp=0x804d5c0, codePtr=0x81f2410)
    at /usr/local/src/SOURCES/tcl8.4.17/unix/../generic/tclExecute.c:1509
        objc = 2
        objv = (Tcl_Obj **) 0x804f39c
        preservedStackRefCountPtr = (char **) 0x804f398
        iPtr = (Interp *) 0x804d5c0
        eePtr = (ExecEnv *) 0x804c0b8
        stackPtr = (Tcl_Obj **) 0x804f39c
        stackTop = 1
        pc = (unsigned char *) 0x81f247c "\006\002"
        opnd = 2
        pcAdjustment = 2
        initStackTop = -1
        rangePtr = (ExceptionRange *) 0x80ba628
        result = 0
        storeFlags = 2
        valuePtr = (Tcl_Obj *) 0x0
---Type <return> to continue, or q <return> to quit---
        value2Ptr = (Tcl_Obj *) 0xb7fc9ff4
        objPtr = (Tcl_Obj *) 0xbff79b58
        bytes = 0x0
        length = 0
        i = 0
        w = 3220675372
        cleanup = -1208180748
        objResultPtr = (Tcl_Obj *) 0x81f21c8
        part1 = 0x0
        part2 = 0x0
        varPtr = (Var *) 0x0
        arrayPtr = (Var *) 0x2
        varFramePtr = (CallFrame *) 0x0
        curInstName = 0x0
        catchStackStorage = {1, -1208193643, 136263704, -1074291520}
        catchStackPtr = (int *) 0xbff799bc
        catchTop = -1
#10 0xb7f5d76d in TclCompEvalObj (interp=0x804d5c0, objPtr=0x81f1bc8)
    at /usr/local/src/SOURCES/tcl8.4.17/unix/../generic/tclExecute.c:1034
        iPtr = (Interp *) 0x804d5c0
        codePtr = (ByteCode *) 0x81f2410
        oldCount = 64694
        script = 0x0
        numSrcBytes = 16
        result = 0
        namespacePtr = (Namespace *) 0x804c2f0
#11 0xb7f2ca55 in Tcl_EvalObjEx (interp=0x804d5c0, objPtr=0x81f1bc8, flags=0)
    at /usr/local/src/SOURCES/tcl8.4.17/unix/../generic/tclBasic.c:4618
        iPtr = (Interp *) 0x804d5c0
        script = 0xbff79c8c "�1\037\b(8\037\b�\237��\b\235���_����\004\b�\033\037\b"
        numSrcBytes = 135489120
        result = -1208413315
        savedVarFramePtr = (CallFrame *) 0x0
        allowExceptions = 0
#12 0xb7f35ffa in Tcl_IfObjCmd (dummy=0x0, interp=0x804d5c0, objc=5, objv=0xbff79ddc)
    at /usr/local/src/SOURCES/tcl8.4.17/unix/../generic/tclCmdIL.c:301
        thenScriptIndex = 0
        i = 4
        result = 0
---Type <return> to continue, or q <return> to quit---
        value = 0
        clause = 0x81f3828 "else"
#13 0xb7f2b6c5 in TclEvalObjvInternal (interp=0x804d5c0, objc=5, objv=0xbff79ddc,
    command=0x805c9e1 "if {$Config(debug)} {\n\tif {[info commands \"console\"] == \"console\"} {\n\t\tconsole show\n\t} else {\n\t\tStdin_Start \"httpd % \"\n\t\tHttpd_Shutdown\n\t}\n} else {\n\tvwait forever\n}\n", length=165, flags=0)
    at /usr/local/src/SOURCES/tcl8.4.17/unix/../generic/tclBasic.c:3219
        cmdPtr = (Command *) 0x804de58
        iPtr = (Interp *) 0x804d5c0
        newObjv = (Tcl_Obj **) 0xb7fc9ff4
        i = 0
        savedVarFramePtr = (CallFrame *) 0x0
        code = 0
        traceCode = 0
        checkTraces = 1
        savedNsPtr = (Namespace *) 0x0
#14 0xb7f2c239 in Tcl_EvalEx (interp=0x804d5c0,
    script=0x8059cf0 "#!/bin/sh\n#\n# Tcl HTTPD\n#\n# This is the main script for an HTTP server.\n# To test out of the box, do\n# tclsh httpd.tcl -debug 1\n# or\n# wish httpd.tcl -debug 1\n#\n# For a quick spin, just pass the appro"..., numBytes=11670, flags=0)
    at /usr/local/src/SOURCES/tcl8.4.17/unix/../generic/tclBasic.c:4011
        iPtr = (Interp *) 0x804d5c0
        p = 0x805c9e1 "if {$Config(debug)} {\n\tif {[info commands \"console\"] == \"console\"} {\n\t\tconsole show\n\t} else {\n\t\tStdin_Start \"httpd % \"\n\t\tHttpd_Shutdown\n\t}\n} else {\n\tvwait forever\n}\n"
        next = 0x805c9e1 "if {$Config(debug)} {\n\tif {[info commands \"console\"] == \"console\"} {\n\t\tconsole show\n\t} else {\n\t\tStdin_Start \"httpd % \"\n\t\tHttpd_Shutdown\n\t}\n} else {\n\tvwait forever\n}\n"
        parse = {commentStart = 0x0, commentSize = 0,
  commandStart = 0x805c9e1 "if {$Config(debug)} {\n\tif {[info commands \"console\"] == \"console\"} {\n\t\tconsole show\n\t} else {\n\t\tStdin_Start \"httpd % \"\n\t\tHttpd_Shutdown\n\t}\n} else {\n\tvwait forever\n}\n", commandSize = 165, numWords = 5, tokenPtr = 0xbff79e64, numTokens = 10,
  tokensAvailable = 20, errorType = 0,
  string = 0x805c9e1 "if {$Config(debug)} {\n\tif {[info commands \"console\"] == \"console\"} {\n\t\tconsole show\n\t} else {\n\t\tStdin_Start \"httpd % \"\n\t\tHttpd_Shutdown\n\t}\n} else {\n\tvwait forever\n}\n", end = 0x805ca86 "", interp = 0x804d5c0, term = 0x805ca85 "\n", incomplete = 0,
  staticTokens = {{type = 2,
      start = 0x805c9e1 "if {$Config(debug)} {\n\tif {[info commands \"console\"] == \"console\"} {\n\t\tconsole show\n\t} else {\n\t\tStdin_Start \"httpd % \"\n\t\tHttpd_Shutdown\n\t}\n} else {\n\tvw---Type <return> to continue, or q <return> to quit---
ait forever\n}\n", size = 2, numComponents = 1}, {type = 4,
      start = 0x805c9e1 "if {$Config(debug)} {\n\tif {[info commands \"console\"] == \"console\"} {\n\t\tconsole show\n\t} else {\n\t\tStdin_Start \"httpd % \"\n\t\tHttpd_Shutdown\n\t}\n} else {\n\tvwait forever\n}\n", size = 2, numComponents = 0}, {type = 2,
      start = 0x805c9e4 "{$Config(debug)} {\n\tif {[info commands \"console\"] == \"console\"} {\n\t\tconsole show\n\t} else {\n\t\tStdin_Start \"httpd % \"\n\t\tHttpd_Shutdown\n\t}\n} else {\n\tvwait forever\n}\n", size = 16, numComponents = 1}, {type = 4,
      start = 0x805c9e5 "$Config(debug)} {\n\tif {[info commands \"console\"] == \"console\"} {\n\t\tconsole show\n\t} else {\n\t\tStdin_Start \"httpd % \"\n\t\tHttpd_Shutdown\n\t}\n} else {\n\tvwait forever\n}\n", size = 14, numComponents = 0}, {type = 2,
      start = 0x805c9f5 "{\n\tif {[info commands \"console\"] == \"console\"} {\n\t\tconsole show\n\t} else {\n\t\tStdin_Start \"httpd % \"\n\t\tHttpd_Shutdown\n\t}\n} else {\n\tvwait forever\n}\n",
      size = 120, numComponents = 1}, {type = 4,
      start = 0x805c9f6 "\n\tif {[info commands \"console\"] == \"console\"} {\n\t\tconsole show\n\t} else {\n\t\tStdin_Start \"httpd % \"\n\t\tHttpd_Shutdown\n\t}\n} else {\n\tvwait forever\n}\n",
      size = 118, numComponents = 0}, {type = 2, start = 0x805ca6e "else {\n\tvwait forever\n}\n",
      size = 4, numComponents = 1}, {type = 4, start = 0x805ca6e "else {\n\tvwait forever\n}\n",
      size = 4, numComponents = 0}, {type = 2, start = 0x805ca73 "{\n\tvwait forever\n}\n",
      size = 18, numComponents = 1}, {type = 4, start = 0x805ca74 "\n\tvwait forever\n}\n",
      size = 16, numComponents = 0}, {type = 8,
      start = 0x805c080 "\\\n\t\t\t\t\t-ssl3 [cget USE_SSL3] \\\n\t\t\t\t\t-tls1 [cget USE_TLS1] \\\n\t\t\t\t\t-cipher [cget SSL_CIPHERS] \\\n\t\t\t\t\t-cadir [cget SSL_CADIR] \\\n\t\t\t\t\t-cafile [cget SSL_CAFILE] \\\n\t\t\t\t\t-certfile [cget SSL_CERTFILE] \\\n\t\t\t\t\t"..., size = 7,
      numComponents = 0}, {type = 4,
      start = 0x805c087 "-ssl3 [cget USE_SSL3] \\\n\t\t\t\t\t-tls1 [cget USE_TLS1] \\\n\t\t\t\t\t-cipher [cget SSL_CIPHERS] \\\n\t\t\t\t\t-cadir [cget SSL_CADIR] \\\n\t\t\t\t\t-cafile [cget SSL_CAFILE] \\\n\t\t\t\t\t-certfile [cget SSL_CERTFILE] \\\n\t\t\t\t\t-keyfil"..., size = 22,
      numComponents = 0}, {type = 8,
      start = 0x805c09d "\\\n\t\t\t\t\t-tls1 [cget USE_TLS1] \\\n\t\t\t\t\t-cipher [cget SSL_CIPHERS] \\\n\t\t\t\t\t-cadir [cget SSL_CADIR] \\\n\t\t\t\t\t-cafile [cget SSL_CAFILE] \\\n\t\t\t\t\t-certfile [cget SSL_CERTFILE] \\\n\t\t\t\t\t-keyfile [cget SSL_KEYFILE]\n\t"..., size = 7,
      numComponents = 0}, {type = 4,
      start = 0x805c0a4 "-tls1 [cget USE_TLS1] \\\n\t\t\t\t\t-cipher [cget SSL_CIPHERS] \\\n\t\t\t\t\t-cadir [cget SSL_CADIR] \\\n\t\t\t\t\t-cafile [cget SSL_CAFILE] \\\n\t\t\t\t\t-certfile [cget SSL_CERTFILE] \\\n\t\t\t\t\t-keyfile [cget SSL_KEYFILE]\n\t\t\t\n\t\t\tH"..., size = 22,
      numComponents = 0}, {type = 8,
      start = 0x805c0ba "\\\n\t\t\t\t\t-cipher [cget SSL_CIPHERS] \\\n\t\t\t\t\t-cadir [cget SSL_CADIR] \\\n\t\t\t\t\t-cafile [cget SSL_CAFILE] \\\n\t\t\t\t\t-certfile [cget SSL_CERTFILE] \\\n\t\t\t\t\t-keyfile [cget SSL_KEYFILE]\n\t\t\t\n\t\t\tHttpd_SecureServer $Con"..., size = 7,
---Type <return> to continue, or q <return> to quit---
      numComponents = 0}, {type = 4,
      start = 0x805c0c1 "-cipher [cget SSL_CIPHERS] \\\n\t\t\t\t\t-cadir [cget SSL_CADIR] \\\n\t\t\t\t\t-cafile [cget SSL_CAFILE] \\\n\t\t\t\t\t-certfile [cget SSL_CERTFILE] \\\n\t\t\t\t\t-keyfile [cget SSL_KEYFILE]\n\t\t\t\n\t\t\tHttpd_SecureServer $Config(htt"..., size = 27, numComponents = 0}, {
      type = 8,
      start = 0x805c0dc "\\\n\t\t\t\t\t-cadir [cget SSL_CADIR] \\\n\t\t\t\t\t-cafile [cget SSL_CAFILE] \\\n\t\t\t\t\t-certfile [cget SSL_CERTFILE] \\\n\t\t\t\t\t-keyfile [cget SSL_KEYFILE]\n\t\t\t\n\t\t\tHttpd_SecureServer $Config(https_port) $Config(https_host"..., size = 7, numComponents = 0}, {
      type = 4,
      start = 0x805c0e3 "-cadir [cget SSL_CADIR] \\\n\t\t\t\t\t-cafile [cget SSL_CAFILE] \\\n\t\t\t\t\t-certfile [cget SSL_CERTFILE] \\\n\t\t\t\t\t-keyfile [cget SSL_KEYFILE]\n\t\t\t\n\t\t\tHttpd_SecureServer $Config(https_port) $Config(https_host) $Conf"..., size = 24, numComponents = 0}, {
      type = 8,
      start = 0x805c0fb "\\\n\t\t\t\t\t-cafile [cget SSL_CAFILE] \\\n\t\t\t\t\t-certfile [cget SSL_CERTFILE] \\\n\t\t\t\t\t-keyfile [cget SSL_KEYFILE]\n\t\t\t\n\t\t\tHttpd_SecureServer $Config(https_port) $Config(https_host) $Config(https_ipaddr)\n\t\t\tappe"..., size = 7, numComponents = 0}, {
      type = 4,
      start = 0x805c102 "-cafile [cget SSL_CAFILE] \\\n\t\t\t\t\t-certfile [cget SSL_CERTFILE] \\\n\t\t\t\t\t-keyfile [cget SSL_KEYFILE]\n\t\t\t\n\t\t\tHttpd_SecureServer $Config(https_port) $Config(https_host) $Config(https_ipaddr)\n\t\t\tappend star"..., size = 26, numComponents = 0}}}
        staticObjArray = {0x81f1b38, 0x8136660, 0x81f3288, 0x81f3180, 0x81f1bc8, 0x8055848,
  0x8055998, 0x8055788, 0x0, 0x4011, 0x8059ce8, 0x8058cd8, 0x8058cd8, 0x8058cd8, 0x805ca86,
  0x805dcef, 0x0, 0x0, 0xb7fc9ff4, 0xbff79e68}
        objv = (Tcl_Obj **) 0xbff79ddc
        tokenPtr = (Tcl_Token *) 0xbff79f04
        code = 0
        i = 2
        commandLength = 134534592
        bytesLeft = 165
        nested = 0
        savedVarFramePtr = (CallFrame *) 0x0
        allowExceptions = 0
        gotParse = 1
        objectsUsed = 5
#15 0xb7f82b51 in Tcl_FSEvalFile (interp=0x804d5c0, pathPtr=0x8055ec0)
    at /usr/local/src/SOURCES/tcl8.4.17/unix/../generic/tclIOUtil.c:1776
        result = 1
        length = 11670
        statBuf = {st_dev = 775, __pad1 = 0, __st_ino = 16045, st_mode = 33277, st_nlink = 1,
---Type <return> to continue, or q <return> to quit---
  st_uid = 0, st_gid = 100, st_rdev = 0, __pad2 = 0, st_size = 11670, st_blksize = 4096,
  st_blocks = 24, st_atim = {tv_sec = 1202168317, tv_nsec = 0}, st_mtim = {tv_sec = 1160672734,
    tv_nsec = 0}, st_ctim = {tv_sec = 1160672734, tv_nsec = 0}, st_ino = 16045}
        oldScriptFile = (Tcl_Obj *) 0x0
        iPtr = (Interp *) 0x804d5c0
        string = 0x8059cf0 "#!/bin/sh\n#\n# Tcl HTTPD\n#\n# This is the main script for an HTTP server.\n# To test out of the box, do\n# tclsh httpd.tcl -debug 1\n# or\n# wish httpd.tcl -debug 1\n#\n# For a quick spin, just pass the appro"...
        chan = (Tcl_Channel) 0x80587f0
        objPtr = (Tcl_Obj *) 0x8055ad0
#16 0xb7f8b441 in Tcl_Main (argc=-1, argv=0xbff7a474, appInitProc=0x804869b <Tcl_AppInit>)
    at /usr/local/src/SOURCES/tcl8.4.17/unix/../generic/tclMain.c:295
        resultPtr = (Tcl_Obj *) 0x0
        argvPtr = (Tcl_Obj *) 0x8055e90
        commandPtr = (Tcl_Obj *) 0x0
        prompt = PROMPT_START
        code = 134520820
        length = 0
        tty = 1
        exitCode = 0
        inChannel = (Tcl_Channel) 0x0
        outChannel = (Tcl_Channel) 0xbff7a3c8
        errChannel = (Tcl_Channel) 0xb7fea360
        interp = (Tcl_Interp *) 0x804d5c0
        appName = {string = 0xbff7a2a4 "", length = 0, spaceAvl = 200,
  staticSpace = "\000usr/local/bin/httpd.tcl\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\f[���\223\000\000\000\000\000\000\000\000\000\000H���أ��\200����6���\203\004\bP\n�\000\f���", '\0' <repeats 12 times>, "\001\000\000\000H\b\000\0008[���W��.\204\004\b�\230ٷ�\202\004\b\001\000\000\000�/���8���������y��\000P����^2$\n�/��\224\202\004\b�6��\220����N���8��\000\000\000\000\001\000\000"}
        objPtr = (Tcl_Obj *) 0x8055ea8
#17 0x0804868c in main (argc=138847640, argv=0x0)
    at /usr/local/src/SOURCES/tcl8.4.17/unix/tclAppInit.c:90
No locals.