diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-11-09 14:40:30 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-11-09 14:40:30 (GMT) |
| commit | de9a7da4ba0d3044a1249b09b14c51a7e0c88ab4 (patch) | |
| tree | d2214ebb3c23a431bd0c84a432495a435550b8e6 /generic/tclStringObj.c | |
| parent | c1f627b31e04957f50e52d12dcf543085e1f629d (diff) | |
| parent | 0faadee83ceeb72ae3634429f88f0defcb607169 (diff) | |
| download | tcl-de9a7da4ba0d3044a1249b09b14c51a7e0c88ab4.zip tcl-de9a7da4ba0d3044a1249b09b14c51a7e0c88ab4.tar.gz tcl-de9a7da4ba0d3044a1249b09b14c51a7e0c88ab4.tar.bz2 | |
merge trunk
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 3a35bcf..547f7c6 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -3462,7 +3462,6 @@ TclStringObjReverse( * Tcl_SetObjLength into growing the unicode rep buffer. */ - ch = 0; objPtr = Tcl_NewUnicodeObj(&ch, 1); Tcl_SetObjLength(objPtr, stringPtr->numChars); to = Tcl_GetUnicode(objPtr); @@ -3565,7 +3564,7 @@ ExtendUnicodeRepWithString( { String *stringPtr = GET_STRING(objPtr); int needed, numOrigChars = 0; - Tcl_UniChar *dst; + Tcl_UniChar *dst, unichar = 0; if (stringPtr->hasUnicode) { numOrigChars = stringPtr->numChars; @@ -3588,7 +3587,8 @@ ExtendUnicodeRepWithString( numAppendChars = 0; } for (dst=stringPtr->unicode + numOrigChars; numAppendChars-- > 0; dst++) { - bytes += TclUtfToUniChar(bytes, dst); + bytes += TclUtfToUniChar(bytes, &unichar); + *dst = unichar; } *dst = 0; } |