diff options
| author | dgp@users.sourceforge.net <dgp> | 2014-05-06 17:33:55 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2014-05-06 17:33:55 (GMT) |
| commit | f659ac060c3942b16d567a350e4e17af35e53b54 (patch) | |
| tree | 11f59723cc0cf44a623e7c543ab13e9204c362ae | |
| parent | ea0a98b1b9b683ef108f370074f116ce1b6ebc54 (diff) | |
| download | tcl-f659ac060c3942b16d567a350e4e17af35e53b54.zip tcl-f659ac060c3942b16d567a350e4e17af35e53b54.tar.gz tcl-f659ac060c3942b16d567a350e4e17af35e53b54.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)". */ /* |