diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-11-13 13:50:19 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-11-13 13:50:19 (GMT) |
| commit | 27fd2bbb61dbcad31b83c3fadd54030d11d35d7f (patch) | |
| tree | a540cd997579d3b7ed054c2c0b039dc8c838898f /generic/tclEncoding.c | |
| parent | 9ec6e380ed2bd090f185c8fee4adc782e1bd2727 (diff) | |
| parent | 3b32ee24fbf3a459d986ecdd0929671fbd3fde57 (diff) | |
| download | tcl-27fd2bbb61dbcad31b83c3fadd54030d11d35d7f.zip tcl-27fd2bbb61dbcad31b83c3fadd54030d11d35d7f.tar.gz tcl-27fd2bbb61dbcad31b83c3fadd54030d11d35d7f.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 f889d0b..c958b08 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -2351,7 +2351,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 |