diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-04-20 11:15:04 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-04-20 11:15:04 (GMT) |
| commit | e9bd97f8323d38f493f7ab49b9cf678257bd207d (patch) | |
| tree | 5320682c051841e55d18239660bf2b97bcc5db93 /generic/tclStringObj.c | |
| parent | 430929307e98762dba38cf49d7e770fead3db4e1 (diff) | |
| parent | a6e0a802ec8fcd138a8d8f274a6d94b54a773996 (diff) | |
| download | tcl-e9bd97f8323d38f493f7ab49b9cf678257bd207d.zip tcl-e9bd97f8323d38f493f7ab49b9cf678257bd207d.tar.gz tcl-e9bd97f8323d38f493f7ab49b9cf678257bd207d.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index f71e217..7c9b1d8 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -1359,6 +1359,7 @@ Tcl_AppendObjToObj( * This fixes append-3.4, append-3.7 and utf-1.18 testcases. */ if (ISCONTINUATION(TclGetString(appendObjPtr))) { Tcl_GetUnicode(objPtr); + stringPtr = GET_STRING(objPtr); } /* * If objPtr has a valid Unicode rep, then get a Unicode string from |