diff options
| author | dgp <dgp@users.sourceforge.net> | 2019-11-13 18:24:06 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2019-11-13 18:24:06 (GMT) |
| commit | c2e61fa00ec9d4f4a1eb47fe47d422ced597be94 (patch) | |
| tree | 4ce24bde8b92a04e52e9efb7bf6f6735dd3efd24 /generic/tclEncoding.c | |
| parent | 21c4caf8e19c2d81a598a7973022966f42cb3455 (diff) | |
| parent | 8126172c86ecff9bb2ec136731e70ea805aa552b (diff) | |
| download | tcl-c2e61fa00ec9d4f4a1eb47fe47d422ced597be94.zip tcl-c2e61fa00ec9d4f4a1eb47fe47d422ced597be94.tar.gz tcl-c2e61fa00ec9d4f4a1eb47fe47d422ced597be94.tar.bz2 | |
merge 8.7
Diffstat (limited to 'generic/tclEncoding.c')
| -rw-r--r-- | generic/tclEncoding.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index 430f705..83f4787 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -2413,7 +2413,7 @@ UtfToUtfProc( dst += Tcl_UniCharToUtf(*chPtr, dst); #if TCL_UTF_MAX <= 4 if ((*chPtr >= 0xD800) && (len < 3)) { - src += TclUtfToUniChar(src + len, chPtr); + src += Tcl_UtfToUniChar(src, chPtr); dst += Tcl_UniCharToUtf(*chPtr, dst); } #endif |