diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-12-16 10:25:02 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-12-16 10:25:02 (GMT) |
| commit | 5d7537b823f851540bd231ed06da615ce31dd15a (patch) | |
| tree | 1d088ad6c91639399a157185d20f4eb61fa40bb4 /generic/tclEncoding.c | |
| parent | 4cca4b0b1c3095ef64a4c8fa816dd27d52c4bdff (diff) | |
| parent | fd98096770210ed4e5e1ddbf93c7d3860716efcb (diff) | |
| download | tcl-5d7537b823f851540bd231ed06da615ce31dd15a.zip tcl-5d7537b823f851540bd231ed06da615ce31dd15a.tar.gz tcl-5d7537b823f851540bd231ed06da615ce31dd15a.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 ecf01da..60abb51 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -2505,7 +2505,7 @@ Utf32ToUtfProc( } else { ch = (src[0] & 0xFF) << 24 | (src[1] & 0xFF) << 16 | (src[2] & 0xFF) << 8 | (src[3] & 0xFF); } - if (ch >= 0x10FFFF || (((flags & TCL_ENCODING_STRICT) == TCL_ENCODING_STRICT) + if ((unsigned)ch > 0x10FFFF || (((flags & TCL_ENCODING_STRICT) == TCL_ENCODING_STRICT) && !Tcl_UniCharIsUnicode(ch))) { if (STOPONERROR) { result = TCL_CONVERT_SYNTAX; |