diff options
author | dgp <dgp@users.sourceforge.net> | 2014-05-06 17:33:55 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2014-05-06 17:33:55 (GMT) |
commit | cc1b3e8ddcb21cf10e67fee7c26f89b40498eb53 (patch) | |
tree | 11f59723cc0cf44a623e7c543ab13e9204c362ae | |
parent | c4669a8b0c841482ec4a6b86c4d8a3a12578fefa (diff) | |
download | tcl-cc1b3e8ddcb21cf10e67fee7c26f89b40498eb53.zip tcl-cc1b3e8ddcb21cf10e67fee7c26f89b40498eb53.tar.gz tcl-cc1b3e8ddcb21cf10e67fee7c26f89b40498eb53.tar.bz2 |
Symptom relief. Make test stop panicking.
This is not the proper final answer. ChannelBuffer management in
FlushChannel is simply not robustly correct yet.
-rw-r--r-- | generic/tclIO.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 6bf28a1..dd4d489 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -2713,8 +2713,11 @@ FlushChannel( statePtr->outQueueTail = NULL; } RecycleBuffer(statePtr, bufPtr, 0); + bufPtr = NULL; + } + if (bufPtr) { + ReleaseChannelBuffer(bufPtr); } - ReleaseChannelBuffer(bufPtr); } /* Closes "while (1)". */ /* |