diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-05-16 07:20:48 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-05-16 07:20:48 (GMT) |
| commit | 2b1a83cd8828afc227201acda128c7cdedf06f02 (patch) | |
| tree | a62075673a0d27da7aca3c69165bbde774a4e94e /generic/tclStringObj.c | |
| parent | bc6a36f9493f9a335838085a41f225ed458e4075 (diff) | |
| parent | 638dfc5d56a9002d03c280add7d96b505323b25c (diff) | |
| download | tcl-2b1a83cd8828afc227201acda128c7cdedf06f02.zip tcl-2b1a83cd8828afc227201acda128c7cdedf06f02.tar.gz tcl-2b1a83cd8828afc227201acda128c7cdedf06f02.tar.bz2 | |
Merge 9.0
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 89d238b..fab8e57 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -1338,7 +1338,7 @@ Tcl_AppendToObj( */ void -TclAppendUnicodeToObj( +Tcl_AppendUnicodeToObj( Tcl_Obj *objPtr, /* Points to the object to append to. */ const Tcl_UniChar *unicode, /* The unicode string to append to the * object. */ @@ -3005,7 +3005,7 @@ TclStringRepeat( Tcl_AppendObjToObj(objResultPtr, objResultPtr); done *= 2; } - TclAppendUnicodeToObj(objResultPtr, Tcl_GetUnicode(objResultPtr), + Tcl_AppendUnicodeToObj(objResultPtr, Tcl_GetUnicode(objResultPtr), (count - done) * length); } else { /* @@ -4109,7 +4109,7 @@ TclStringReplace( Tcl_AppendObjToObj(result, insertPtr); } if (first + count < (size_t)numChars) { - TclAppendUnicodeToObj(result, ustring + first + count, + Tcl_AppendUnicodeToObj(result, ustring + first + count, numChars - first - count); } |