diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-06-23 13:27:55 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-06-23 13:27:55 (GMT) |
| commit | cbb66412ca40047eab4b424f4f86150f71b622d9 (patch) | |
| tree | 52a5e0aa2fc7151657345a0a0cbbe4edd3802d23 /generic/tclEncoding.c | |
| parent | 20fcf335945daf5dedf6f10f940026b681dd7f1b (diff) | |
| parent | 501954d5aaf9401f977885fd340298baacde61a2 (diff) | |
| download | tcl-cbb66412ca40047eab4b424f4f86150f71b622d9.zip tcl-cbb66412ca40047eab4b424f4f86150f71b622d9.tar.gz tcl-cbb66412ca40047eab4b424f4f86150f71b622d9.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 45136ef..cff3ee4 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -2377,7 +2377,7 @@ UtfToUtfProc( break; } src += len; - if (!(flags & TCL_ENCODING_UTF)) { + if (!(flags & TCL_ENCODING_UTF) && (ch > 0x3FF)) { if (ch > 0xFFFF) { /* CESU-8 6-byte sequence for chars > U+FFFF */ ch -= 0x10000; |