diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-04-05 12:13:00 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-04-05 12:13:00 (GMT) |
| commit | e48954e7aa98d3c0c3826ceb7d48ca783fc1faa2 (patch) | |
| tree | 5c4d1ebd852f5aa207d29577ab25fb7b3c082988 /generic/tclStringObj.c | |
| parent | 7a010fde930bc7eb8afbe88b1cb12af71b012313 (diff) | |
| parent | 7032562591b12990b1b45ad8815bb30513a4d8e1 (diff) | |
| download | tcl-tip_445_fork.zip tcl-tip_445_fork.tar.gz tcl-tip_445_fork.tar.bz2 | |
merge trunktip_445_fork
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index a28dd05..5d38b28 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -2967,7 +2967,7 @@ ExtendStringRepWithUnicode( */ int i, origLength, size = 0; - char *dst, buf[TCL_UTF_MAX]; + char *dst; String *stringPtr = GET_STRING(objPtr); if (numChars < 0) { @@ -2993,7 +2993,7 @@ ExtendStringRepWithUnicode( } for (i = 0; i < numChars && size >= 0; i++) { - size += Tcl_UniCharToUtf((int) unicode[i], buf); + size += TclUtfCount(unicode[i]); } if (size < 0) { Tcl_Panic("max size for a Tcl value (%d bytes) exceeded", INT_MAX); |