diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-12-18 18:06:51 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-12-18 18:06:51 (GMT) |
| commit | f1da0fefc6ab7f421a081f26b052cd5116c819e6 (patch) | |
| tree | dae33b4dc113e43a01da394e30ff4ddc4dfafec7 /generic/tclIO.c | |
| parent | 80de73ed3bcd1b495c61c04383f63e77b3aded7d (diff) | |
| download | tcl-f1da0fefc6ab7f421a081f26b052cd5116c819e6.zip tcl-f1da0fefc6ab7f421a081f26b052cd5116c819e6.tar.gz tcl-f1da0fefc6ab7f421a081f26b052cd5116c819e6.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; } |