From 397c462cae25544b3c7e3094c6d27d32c5fcf421 Mon Sep 17 00:00:00 2001
From: oehhar <harald.oehlmann@elmicron.de>
Date: Mon, 22 Jan 2024 15:07:33 +0000
Subject: [db4f2843cd],[da16d15574]: revert Tcl_ReadChars fix, due to
 performance impact.

---
 generic/tclIO.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
 
-- 
cgit v0.12