diff options
author | oehhar <harald.oehlmann@elmicron.de> | 2024-01-22 15:08:23 (GMT) |
---|---|---|
committer | oehhar <harald.oehlmann@elmicron.de> | 2024-01-22 15:08:23 (GMT) |
commit | 954d7b33134d9e2aef219ae5c829e4062eaf1da8 (patch) | |
tree | 78907eaee0368dc180fa41a7e323f30c63f534de | |
parent | b98f4c049b4144f181165c34ed50f7cece927730 (diff) | |
parent | 1248873790b94f17a503bd58ecff802ac188db14 (diff) | |
download | tcl-954d7b33134d9e2aef219ae5c829e4062eaf1da8.zip tcl-954d7b33134d9e2aef219ae5c829e4062eaf1da8.tar.gz tcl-954d7b33134d9e2aef219ae5c829e4062eaf1da8.tar.bz2 |
Merge TCL8.6
-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 2293b42..3b36457 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -6323,7 +6323,7 @@ ReadChars( int dstLimit = TCL_UTF_MAX - 1 + toRead * factor / UTF_EXPANSION_FACTOR; (void) TclGetStringFromObj(objPtr, &numBytes); - Tcl_SetObjLength(objPtr, numBytes + dstLimit); + Tcl_AppendToObj(objPtr, NULL, dstLimit); if (toRead == srcLen) { unsigned int size; |