Tcl Source Code

Check-in [7bbdf769a2]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Panic message to pinpoint the cause of iocmd-21.23 segfault.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-5-branch
Files: files | file ages | folders
SHA1: 7bbdf769a2724207b205d2bd6450c8c20e8c5755
User & Date: dgp 2014-04-30 19:33:21
Context
2014-04-30
19:54
Stop the segfaults in [close] during [gets] tests. Not sure this is the right behavior, but it's bet... check-in: 04b1f8b14c user: dgp tags: core-8-5-branch
19:33
Panic message to pinpoint the cause of iocmd-21.23 segfault. check-in: 7bbdf769a2 user: dgp tags: core-8-5-branch
19:12
Another segfault demo test, this one with [close] during [gets]. check-in: a0ef399dee user: dgp tags: core-8-5-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclIO.c.

4566
4567
4568
4569
4570
4571
4572



4573
4574
4575
4576
4577
4578
4579
	if (GetInput(chanPtr) != 0) {
	    gsPtr->charsWrote = 0;
	    gsPtr->rawRead = 0;
	    return -1;
	}
	bufPtr = statePtr->inQueueTail;
	gsPtr->bufPtr = bufPtr;



    }

    /*
     * Convert some of the bytes from the channel buffer to UTF-8. Space in
     * objPtr's string rep is used to hold the UTF-8 characters. Grow the
     * string rep if we need more space.
     */







>
>
>







4566
4567
4568
4569
4570
4571
4572
4573
4574
4575
4576
4577
4578
4579
4580
4581
4582
	if (GetInput(chanPtr) != 0) {
	    gsPtr->charsWrote = 0;
	    gsPtr->rawRead = 0;
	    return -1;
	}
	bufPtr = statePtr->inQueueTail;
	gsPtr->bufPtr = bufPtr;
	if (bufPtr == NULL) {
	    Tcl_Panic("GetInput nuked buffers!");
	}
    }

    /*
     * Convert some of the bytes from the channel buffer to UTF-8. Space in
     * objPtr's string rep is used to hold the UTF-8 characters. Grow the
     * string rep if we need more space.
     */