diff options
author | sebres <sebres@users.sourceforge.net> | 2023-12-06 17:17:38 (GMT) |
---|---|---|
committer | sebres <sebres@users.sourceforge.net> | 2023-12-06 17:17:38 (GMT) |
commit | aed6d5bb46d87ab6525c242cfffb86c9bbc405e0 (patch) | |
tree | 2de5d8b12f6ea8123d8c861840adbdac180a8398 | |
parent | 516659e2fccead0e1588df36883c1386e5ad6a82 (diff) | |
parent | 552ef1ca02c0b71c2c1cda3d1330a4fabc93b3c1 (diff) | |
download | tcl-aed6d5bb46d87ab6525c242cfffb86c9bbc405e0.zip tcl-aed6d5bb46d87ab6525c242cfffb86c9bbc405e0.tar.gz tcl-aed6d5bb46d87ab6525c242cfffb86c9bbc405e0.tar.bz2 |
closes [db4f2843cd]: fixes SF by BO in ReadChars (and Tcl_ReadChars with append)
-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 0f79f1e..0153646 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_AppendToObj(objPtr, NULL, dstLimit); + Tcl_SetObjLength(objPtr, numBytes + dstLimit); if (toRead == srcLen) { unsigned int size; |