diff options
| author | dgp <dgp@users.sourceforge.net> | 2024-02-07 17:51:02 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2024-02-07 17:51:02 (GMT) |
| commit | e85123db81d7ed4f91888887f610bed0dc74b59e (patch) | |
| tree | 085e89e00a59bdea07640fefefbd1ba02f7f5c81 /generic/tclIO.c | |
| parent | cdc32780af0c244d2b9f303e4f4cfbec49ef9317 (diff) | |
| parent | 38868d9256a2d6bf4053ecea74cdc16995449a2e (diff) | |
| download | tcl-e85123db81d7ed4f91888887f610bed0dc74b59e.zip tcl-e85123db81d7ed4f91888887f610bed0dc74b59e.tar.gz tcl-e85123db81d7ed4f91888887f610bed0dc74b59e.tar.bz2 | |
merge 8.6
Diffstat (limited to 'generic/tclIO.c')
| -rw-r--r-- | generic/tclIO.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 0f79f1e..b8a79c2 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -6111,8 +6111,9 @@ ReadChars( int factor = *factorPtr; int dstLimit = TCL_UTF_MAX - 1 + toRead * factor / UTF_EXPANSION_FACTOR; + if (dstLimit <= 0) dstLimit = INT_MAX; /* avoid overflow */ (void) TclGetStringFromObj(objPtr, &numBytes); - Tcl_AppendToObj(objPtr, NULL, dstLimit); + TclAppendUtfToUtf(objPtr, NULL, dstLimit); if (toRead == srcLen) { unsigned int size; |