diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-07-14 10:53:55 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-07-14 10:53:55 (GMT) |
commit | 554ed37525a85518448300c6cdfd33d7d2684425 (patch) | |
tree | e1494c27cd0341f445f368ce7737fe8268567a4b /generic/tclStringObj.c | |
parent | 037f0d4f7e7b70aaa44f11a934ed52c0fabca0b3 (diff) | |
download | tcl-554ed37525a85518448300c6cdfd33d7d2684425.zip tcl-554ed37525a85518448300c6cdfd33d7d2684425.tar.gz tcl-554ed37525a85518448300c6cdfd33d7d2684425.tar.bz2 |
Same bug-fix as [b79df322a9], but then for Tcl_AppendUnicodeToObj()
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 b9d603d..7ce1cdc 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -1744,7 +1744,7 @@ Tcl_AppendUnicodeToObj( return; } - SetStringFromAny(NULL, objPtr); + SetUTF16StringFromAny(NULL, objPtr); stringPtr = GET_STRING(objPtr); stringPtr = stringAttemptRealloc(stringPtr, stringPtr->numChars + length); memcpy(&stringPtr->unicode[stringPtr->numChars], unicode, length); |