diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-23 16:33:41 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-23 16:33:41 (GMT) |
| commit | 66cbd6ac71e01082f9e8b0e088cd829defdf9886 (patch) | |
| tree | 491070fc07532a50fa878f91d3868f64eb5cf834 /generic/tclStringObj.c | |
| parent | af426f828e2e3391d7b4ed399040300821a156e9 (diff) | |
| download | tcl-66cbd6ac71e01082f9e8b0e088cd829defdf9886.zip tcl-66cbd6ac71e01082f9e8b0e088cd829defdf9886.tar.gz tcl-66cbd6ac71e01082f9e8b0e088cd829defdf9886.tar.bz2 | |
Fix for UpdateStringOfUTF16String()
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 784ed44..17c7067 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -239,9 +239,9 @@ UpdateStringOfUTF16String( char *bytes = (char *)ckalloc(Tcl_DStringLength(&ds) + 1U); memcpy(bytes, string, Tcl_DStringLength(&ds)); bytes[Tcl_DStringLength(&ds)] = 0; - Tcl_DStringFree(&ds); objPtr->bytes = bytes; objPtr->length = Tcl_DStringLength(&ds); + Tcl_DStringFree(&ds); } #endif |