summaryrefslogtreecommitdiffstats
path: root/generic/tclIO.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-10-02 14:43:10 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-10-02 14:43:10 (GMT)
commita21e1b769836e5b589d00985420d87e74c8010e3 (patch)
treef27a292a7ee9b3368b5e5d216654ee7b39982618 /generic/tclIO.c
parent2eb36b08a9d7f97e811ba6b7aeaddaa7fbfa812d (diff)
downloadtcl-a21e1b769836e5b589d00985420d87e74c8010e3.zip
tcl-a21e1b769836e5b589d00985420d87e74c8010e3.tar.gz
tcl-a21e1b769836e5b589d00985420d87e74c8010e3.tar.bz2
[bc5b790099] Improper calculation of new dstLimit value. New test io-12.7.
Diffstat (limited to 'generic/tclIO.c')
-rw-r--r--generic/tclIO.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index 93ac937..3119db5 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -5632,12 +5632,11 @@ ReadChars(
/*
* We read more chars than allowed. Reset limits to
* prevent that and try again. Don't forget the extra
- * padding of TCL_UTF_MAX - 1 bytes demanded by the
+ * padding of TCL_UTF_MAX bytes demanded by the
* Tcl_ExternalToUtf() call!
*/
- dstLimit = Tcl_UtfAtIndex(dst, charsToRead + 1)
- + TCL_UTF_MAX - 1 - dst;
+ dstLimit = Tcl_UtfAtIndex(dst, charsToRead) + TCL_UTF_MAX - dst;
statePtr->flags = savedFlags;
statePtr->inputEncodingFlags = savedIEFlags;
statePtr->inputEncodingState = savedState;