diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-08-19 19:07:17 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-08-19 19:07:17 (GMT) |
| commit | b4307ec076f504b43a12901bb34c646ea5267391 (patch) | |
| tree | 92deb26629aacc8365e068d9b1361fc527393f3a /generic/tclIO.c | |
| parent | c7308459febcf0a9d4fd00a1522a33b0fe6fa74b (diff) | |
| download | tcl-b4307ec076f504b43a12901bb34c646ea5267391.zip tcl-b4307ec076f504b43a12901bb34c646ea5267391.tar.gz tcl-b4307ec076f504b43a12901bb34c646ea5267391.tar.bz2 | |
3394654, 3393276 Revise FlushChannel() to account for the possibility
that the ChanWrite() call might recycle the buffer out from under us.
Diffstat (limited to 'generic/tclIO.c')
| -rw-r--r-- | generic/tclIO.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 946b53a..ae1b89a 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -2510,7 +2510,9 @@ FlushChannel( wroteSome = 1; } - bufPtr->nextRemoved += written; + if (!IsBufferEmpty(bufPtr)) { + bufPtr->nextRemoved += written; + } /* * If this buffer is now empty, recycle it. |