diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-11-13 12:37:24 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-11-13 12:37:24 (GMT) |
| commit | d3315530e8ae5a6b4dd6fce55c2bea70f4798131 (patch) | |
| tree | 7fb51be0251ed50b0204cc23bc6b5b042b230181 /generic/tclEncoding.c | |
| parent | 3181ee9123bf2402abeba55ca2b9469d74382ed1 (diff) | |
| download | tcl-d3315530e8ae5a6b4dd6fce55c2bea70f4798131.zip tcl-d3315530e8ae5a6b4dd6fce55c2bea70f4798131.tar.gz tcl-d3315530e8ae5a6b4dd6fce55c2bea70f4798131.tar.bz2 | |
Part 2 of bugfix [d433c0e0ad]: TCL_UTF_MAX == 4 problems
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 1c1f94c..f159b32 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -2366,7 +2366,7 @@ UtfToUtfProc( dst += Tcl_UniCharToUtf(*chPtr, dst); #if TCL_UTF_MAX == 4 if ((*chPtr >= 0xD800) && (len < 3)) { - src += Tcl_UtfToUniChar(src + len, chPtr); + src += Tcl_UtfToUniChar(src, chPtr); dst += Tcl_UniCharToUtf(*chPtr, dst); } #endif |