summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorandreas_kupries <akupries@shaw.ca>2001-11-07 04:47:54 (GMT)
committerandreas_kupries <akupries@shaw.ca>2001-11-07 04:47:54 (GMT)
commit513d743d0f05094ff7985f9840cc5db7f4bb3955 (patch)
treedae814c6e3697df6a4687157f1048d86010ef9b8 /generic
parentb9409cf1380592f8ce9bf864ca617bc59f81a4ba (diff)
downloadtcl-513d743d0f05094ff7985f9840cc5db7f4bb3955.zip
tcl-513d743d0f05094ff7985f9840cc5db7f4bb3955.tar.gz
tcl-513d743d0f05094ff7985f9840cc5db7f4bb3955.tar.bz2
See ChangeLog
Diffstat (limited to 'generic')
-rw-r--r--generic/tclIO.c24
1 files changed, 17 insertions, 7 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index a5979e2..982d6ff 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclIO.c,v 1.40 2001/10/16 05:31:18 dgp Exp $
+ * RCS: @(#) $Id: tclIO.c,v 1.41 2001/11/07 04:47:54 andreas_kupries Exp $
*/
#include "tclInt.h"
@@ -4642,13 +4642,23 @@ ReadChars(statePtr, objPtr, charsToRead, offsetPtr, factorPtr)
nextPtr = bufPtr->nextPtr;
if (nextPtr == NULL) {
- /*
- * There isn't enough data in the buffers to complete the next
- * character, so we need to wait for more data before the next
- * file event can be delivered.
- */
+ if (srcLen > 0) {
+ /*
+ * There isn't enough data in the buffers to complete the next
+ * character, so we need to wait for more data before the next
+ * file event can be delivered.
+ *
+ * SF #478856.
+ *
+ * The exception to this is if the input buffer was
+ * completely empty before we tried to convert its
+ * contents. Nothing in, nothing out, and no incomplete
+ * character data. The conversion before the current one
+ * was complete.
+ */
- statePtr->flags |= CHANNEL_NEED_MORE_DATA;
+ statePtr->flags |= CHANNEL_NEED_MORE_DATA;
+ }
return -1;
}
nextPtr->nextRemoved -= srcLen;