diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-02-15 07:21:55 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-02-15 07:21:55 (GMT) |
commit | 4c2d834fca441a8d463e3bd1a06489f0b864cf73 (patch) | |
tree | 43b01c9089b614b54580a6699adf1b2751a6cdda /generic | |
parent | 5040a69c28a92e0318ca56498bdf30f8690470ae (diff) | |
download | tcl-4c2d834fca441a8d463e3bd1a06489f0b864cf73.zip tcl-4c2d834fca441a8d463e3bd1a06489f0b864cf73.tar.gz tcl-4c2d834fca441a8d463e3bd1a06489f0b864cf73.tar.bz2 |
Ticket [10c2c17c32] follow-up. One output char too much with -failindex.
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclEncoding.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index c5ecc46..c4db314 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -2595,6 +2595,7 @@ Utf32ToUtfProc( && ((ch & ~0x7FF) == 0xD800))) { if (STOPONERROR) { result = TCL_CONVERT_SYNTAX; + ch = 0; break; } } |