diff options
| author | oehhar <harald.oehlmann@elmicron.de> | 2024-01-22 15:07:33 (GMT) |
|---|---|---|
| committer | oehhar <harald.oehlmann@elmicron.de> | 2024-01-22 15:07:33 (GMT) |
| commit | 1248873790b94f17a503bd58ecff802ac188db14 (patch) | |
| tree | 3818f913a77db12fda20664e1c4099c90ab1a5f7 | |
| parent | a7841c171a88e7a2c8093141bff39d0232748f9c (diff) | |
| download | tcl-1248873790b94f17a503bd58ecff802ac188db14.zip tcl-1248873790b94f17a503bd58ecff802ac188db14.tar.gz tcl-1248873790b94f17a503bd58ecff802ac188db14.tar.bz2 | |
[db4f2843cd],[da16d15574]: revert Tcl_ReadChars fix, due to performance impact.
| -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 0153646..0f79f1e 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -6112,7 +6112,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; |