Tcl Source Code

Check-in [f7b55d3100]
Login

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

Overview
Comment:Fix [b58e689703]: Return value of 'Tcl_Flush'
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-6-branch
Files: files | file ages | folders
SHA3-256: f7b55d310035313a41f541b6baa3df8965f8c775cfaa7b7fc63792c833608ee4
User & Date: jan.nijtmans 2017-10-23 12:09:48
Context
2017-10-23
16:59
Update TZ info to tzcode2017c. check-in: b0e52b87d7 user: jima tags: core-8-6-branch
12:10
merge core-8-6-branch check-in: 91967bbc3f user: jan.nijtmans tags: trunk
12:09
Fix [b58e689703]: Return value of 'Tcl_Flush' check-in: f7b55d3100 user: jan.nijtmans tags: core-8-6-branch
2017-10-19
09:28
Oops; put the code in the wrong place. Mixins have priority when deciding method visibility. check-in: 4140046408 user: dkf tags: core-8-6-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclIO.c.

6656
6657
6658
6659
6660
6661
6662
6663
6664
6665
6666
6667
6668
6669
6670
    /*
     * This operation should occur at the top of a channel stack.
     */

    chanPtr = statePtr->topChanPtr;

    if (CheckChannelErrors(statePtr, TCL_WRITABLE) != 0) {
	return -1;
    }

    result = FlushChannel(NULL, chanPtr, 0);
    if (result != 0) {
	return TCL_ERROR;
    }








|







6656
6657
6658
6659
6660
6661
6662
6663
6664
6665
6666
6667
6668
6669
6670
    /*
     * This operation should occur at the top of a channel stack.
     */

    chanPtr = statePtr->topChanPtr;

    if (CheckChannelErrors(statePtr, TCL_WRITABLE) != 0) {
	return TCL_ERROR;
    }

    result = FlushChannel(NULL, chanPtr, 0);
    if (result != 0) {
	return TCL_ERROR;
    }