summaryrefslogtreecommitdiffstats
path: root/generic/tclIO.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2015-04-29 16:34:33 (GMT)
committerdgp <dgp@users.sourceforge.net>2015-04-29 16:34:33 (GMT)
commit08228c10689feab82a52980341ed6076e9b3abdc (patch)
tree2a00087cfc841cf7de9d6fa89b6b11526bdd9afc /generic/tclIO.c
parent00ef775fc158959acc2c14c5ff3568e1f86fe538 (diff)
downloadtcl-08228c10689feab82a52980341ed6076e9b3abdc.zip
tcl-08228c10689feab82a52980341ed6076e9b3abdc.tar.gz
tcl-08228c10689feab82a52980341ed6076e9b3abdc.tar.bz2
[894da183c8] Fix and test for bug at the point it was introduced.bug_894da183c8
Diffstat (limited to 'generic/tclIO.c')
-rw-r--r--generic/tclIO.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index 4e325ba..10fc377 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -2516,6 +2516,7 @@ FlushChannel(
* queue.
*/
+start:
if (((statePtr->curOutPtr != NULL) &&
IsBufferFull(statePtr->curOutPtr))
|| (GotFlag(statePtr, BUFFER_READY) &&
@@ -2701,6 +2702,8 @@ FlushChannel(
(chanPtr->typePtr->watchProc)(chanPtr->instanceData,
statePtr->interestMask);
}
+ } else if (statePtr->curOutPtr && BytesLeft(statePtr->curOutPtr)) {
+ goto start;
}
/*