diff options
author | pooryorick <com.digitalsmarties@pooryorick.com> | 2021-04-20 13:45:27 (GMT) |
---|---|---|
committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2021-04-20 13:45:27 (GMT) |
commit | 78dee0b7c4f9c8aadb842d791ecb4e3e83e94aa5 (patch) | |
tree | 5c67b090a2a95acaef85630157e3615603826613 /generic | |
parent | c8c67a1caf9282eafdf7b8f0b808a540fa2e53f5 (diff) | |
download | tcl-78dee0b7c4f9c8aadb842d791ecb4e3e83e94aa5.zip tcl-78dee0b7c4f9c8aadb842d791ecb4e3e83e94aa5.tar.gz tcl-78dee0b7c4f9c8aadb842d791ecb4e3e83e94aa5.tar.bz2 |
Fixes for Valgrind issues similar to [ec06d0db3225afca].
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclStringObj.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 84b84dd..508b280 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -1227,6 +1227,7 @@ Tcl_AppendLimitedToObj( * force objPtr to unicode representation. See [7f1162a867] */ if (bytes && ISCONTINUATION(bytes)) { Tcl_GetUnicode(objPtr); + stringPtr = GET_STRING(objPtr); } if (stringPtr->hasUnicode && stringPtr->numChars > 0) { AppendUtfToUnicodeRep(objPtr, bytes, toCopy); @@ -3848,6 +3849,7 @@ TclStringReverse( if (stringPtr->hasUnicode) { Tcl_UniChar *from = Tcl_GetUnicode(objPtr); + stringPtr = GET_STRING(objPtr); Tcl_UniChar *src = from + stringPtr->numChars; Tcl_UniChar *to; @@ -3860,6 +3862,7 @@ TclStringReverse( objPtr = Tcl_NewUnicodeObj(&ch, 1); Tcl_SetObjLength(objPtr, stringPtr->numChars); to = Tcl_GetUnicode(objPtr); + stringPtr = GET_STRING(objPtr); while (--src >= from) { #if TCL_UTF_MAX < 4 ch = *src; |