diff options
| author | sebres <sebres@users.sourceforge.net> | 2023-12-06 17:35:48 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2023-12-06 17:35:48 (GMT) |
| commit | 28e774dfd48edeb0d74eb095c4711a6deb7cbe17 (patch) | |
| tree | b28346cb7dd7c5276187f3108277f902aa61ef8c | |
| parent | bde8234df12a1d67a907b905a06b1deac24d314b (diff) | |
| parent | 4470ef110e33cbf5bc88fd5679c0218140583f8b (diff) | |
| download | tcl-28e774dfd48edeb0d74eb095c4711a6deb7cbe17.zip tcl-28e774dfd48edeb0d74eb095c4711a6deb7cbe17.tar.gz tcl-28e774dfd48edeb0d74eb095c4711a6deb7cbe17.tar.bz2 | |
merge 8.7 (fix for [db4f2843cd])
| -rw-r--r-- | generic/tclIO.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index b480377..552cab5 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -6259,7 +6259,7 @@ ReadChars( int dstLimit = TCL_UTF_MAX - 1 + toRead * factor / UTF_EXPANSION_FACTOR; (void) Tcl_GetStringFromObj(objPtr, &numBytes); - Tcl_AppendToObj(objPtr, NULL, dstLimit); + Tcl_SetObjLength(objPtr, numBytes + dstLimit); if (toRead == srcLen) { Tcl_Size size; |