Tcl Source Code

Check-in [0e64d0aa58]
Login

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

Overview
Comment:Disable buffer recycling, which creates mysteries.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | dgp-demo
Files: files | file ages | folders
SHA1:0e64d0aa58b9d138db603a5bb5554a9a9a622227
User & Date: dgp 2014-04-25 19:51:36
Context
2014-04-29
17:04
merge trunk check-in: e344fa9b49 user: dgp tags: dgp-demo
2014-04-25
19:51
Disable buffer recycling, which creates mysteries. check-in: 0e64d0aa58 user: dgp tags: dgp-demo
17:34
Test iortrans-4.8.2 demos an infinite loop. Possible trouble with pushback buffers. check-in: 71c708ce30 user: dgp tags: dgp-demo
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclIO.c.

2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348
2349
2350
2351
2352
    int mustDiscard)		/* If nonzero, free the buffer to the OS,
				 * always. */
{
    /*
     * Do we have to free the buffer to the OS?
     */

    if (mustDiscard) {
	ReleaseChannelBuffer(bufPtr);
	return;
    }

    /*
     * Only save buffers which are at least as big as the requested buffersize
     * for the channel. This is to honor dynamic changes of the buffersize







|







2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348
2349
2350
2351
2352
    int mustDiscard)		/* If nonzero, free the buffer to the OS,
				 * always. */
{
    /*
     * Do we have to free the buffer to the OS?
     */

    if (1 || mustDiscard) {
	ReleaseChannelBuffer(bufPtr);
	return;
    }

    /*
     * Only save buffers which are at least as big as the requested buffersize
     * for the channel. This is to honor dynamic changes of the buffersize