diff options
Diffstat (limited to 'generic/tclEncoding.c')
| -rw-r--r-- | generic/tclEncoding.c | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index 2d1c983..727ed89 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -2668,16 +2668,8 @@ cesu8: dst += Tcl_UniCharToUtf(ch, dst); ch = low; } - } else if (PROFILE_STRICT(profile) && - (!(flags & ENCODING_INPUT)) && - SURROGATE(ch)) { - result = TCL_CONVERT_UNKNOWN; - src = saveSrc; - break; - } else if (PROFILE_STRICT(profile) && - (flags & ENCODING_INPUT) && - SURROGATE(ch)) { - result = TCL_CONVERT_SYNTAX; + } else if (PROFILE_STRICT(profile) && SURROGATE(ch)) { + result = (flags & ENCODING_INPUT) ? TCL_CONVERT_SYNTAX : TCL_CONVERT_UNKNOWN; src = saveSrc; break; } |