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 | 6c0d722a0a6753769d3f933a724a37667f176638 (patch) | |
| tree | 11f59723cc0cf44a623e7c543ab13e9204c362ae /generic/tclIO.c | |
| parent | e3ee9f9e15df60c47593c2b50c17fefef1909e1d (diff) | |
| download | tcl-6c0d722a0a6753769d3f933a724a37667f176638.zip tcl-6c0d722a0a6753769d3f933a724a37667f176638.tar.gz tcl-6c0d722a0a6753769d3f933a724a37667f176638.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.
Diffstat (limited to 'generic/tclIO.c')
| -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)". */ /* |