Tcl Source Code

Check-in [1d45e395d9]
Login

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

Overview
Comment:Possible fix for another BUFFER_PADDING panic
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | bug-73bb42fb
Files: files | file ages | folders
SHA3-256: 1d45e395d9095e3d468596998d9a9145a560761696a71179139868f2b941528b
User & Date: apnadkarni 2025-03-05 05:43:25.198
Context
2025-03-05
06:41
Test cases check-in: 1914c3dd6c user: apnadkarni tags: bug-73bb42fb
05:43
Possible fix for another BUFFER_PADDING panic check-in: 1d45e395d9 user: apnadkarni tags: bug-73bb42fb
2025-03-04
16:28
Merge 9.0 check-in: ebdb2ce8fe user: jan.nijtmans tags: trunk, main
Changes
Unified Diff Ignore Whitespace Patch
Changes to generic/tclIO.c.
6059
6060
6061
6062
6063
6064
6065
6066

6067
6068
6069
6070
6071
6072
6073
		    && !GotFlag(statePtr, CHANNEL_STICKY_EOF)
		    && (!GotFlag(statePtr, CHANNEL_NONBLOCKING))) {
		goto finish;
	    }
	}

	if (copiedNow < 0) {
	    if (GotFlag(statePtr, CHANNEL_EOF)) {

		break;
	    }
	    if ((GotFlag(statePtr, CHANNEL_NONBLOCKING) || allowShortReads)
		    && GotFlag(statePtr, CHANNEL_BLOCKED)) {
		break;
	    }
	    result = GetInput(chanPtr);







|
>







6059
6060
6061
6062
6063
6064
6065
6066
6067
6068
6069
6070
6071
6072
6073
6074
		    && !GotFlag(statePtr, CHANNEL_STICKY_EOF)
		    && (!GotFlag(statePtr, CHANNEL_NONBLOCKING))) {
		goto finish;
	    }
	}

	if (copiedNow < 0) {
	    if (GotFlag(statePtr, CHANNEL_EOF) || 
	        GotFlag(statePtr, CHANNEL_ENCODING_ERROR)) {
		break;
	    }
	    if ((GotFlag(statePtr, CHANNEL_NONBLOCKING) || allowShortReads)
		    && GotFlag(statePtr, CHANNEL_BLOCKED)) {
		break;
	    }
	    result = GetInput(chanPtr);