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 | 14ead72e1ac39741ca435ee5635738ca1285a61b (patch) | |
| tree | 5c67b090a2a95acaef85630157e3615603826613 | |
| parent | a6e0a802ec8fcd138a8d8f274a6d94b54a773996 (diff) | |
| download | tcl-14ead72e1ac39741ca435ee5635738ca1285a61b.zip tcl-14ead72e1ac39741ca435ee5635738ca1285a61b.tar.gz tcl-14ead72e1ac39741ca435ee5635738ca1285a61b.tar.bz2 | |
Fixes for Valgrind issues similar to [ec06d0db3225afca].
| -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; |