diff options
| author | dgp@users.sourceforge.net <dgp> | 2014-12-18 18:06:51 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2014-12-18 18:06:51 (GMT) |
| commit | f34cf7eb8053df211fbe8fd157c7b11a8270abe3 (patch) | |
| tree | dae33b4dc113e43a01da394e30ff4ddc4dfafec7 /generic/tclIO.c | |
| parent | 7b403ddcc9facaefb9d02fdaaeb1e3ba9f06b760 (diff) | |
| download | tcl-f34cf7eb8053df211fbe8fd157c7b11a8270abe3.zip tcl-f34cf7eb8053df211fbe8fd157c7b11a8270abe3.tar.gz tcl-f34cf7eb8053df211fbe8fd157c7b11a8270abe3.tar.bz2 | |
[7c187a3773] Fix error in managing inStatePtr->inQueueTail value in the
byte-moving optimized path of [chan copy]. Thanks to Benno.
Diffstat (limited to 'generic/tclIO.c')
| -rw-r--r-- | generic/tclIO.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 2025742..8a35aee 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -9215,6 +9215,9 @@ MBWrite( } outStatePtr->outQueueTail = tail; inStatePtr->inQueueHead = bufPtr; + if (inStatePtr->inQueueTail == tail) { + inStatePtr->inQueueTail = bufPtr; + } if (bufPtr == NULL) { inStatePtr->inQueueTail = NULL; } |