diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-04-16 20:59:11 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-04-16 20:59:11 (GMT) |
| commit | d168b44ff69105f80110a01cda37279becc68dc5 (patch) | |
| tree | fcd3909dd5245150d80ba3bd1a8245c8b8754b94 /generic/tclUtf.c | |
| parent | 69a5e401cec7ab105b63420fa5294d883261891e (diff) | |
| download | tcl-d168b44ff69105f80110a01cda37279becc68dc5.zip tcl-d168b44ff69105f80110a01cda37279becc68dc5.tar.gz tcl-d168b44ff69105f80110a01cda37279becc68dc5.tar.bz2 | |
Adjust test results and implementation for Tcl 8.6 current support of
4-byte sequences in a TCL_UTF_MAX=3 build.
Diffstat (limited to 'generic/tclUtf.c')
| -rw-r--r-- | generic/tclUtf.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclUtf.c b/generic/tclUtf.c index cd57d12..d6ba15c 100644 --- a/generic/tclUtf.c +++ b/generic/tclUtf.c @@ -897,10 +897,10 @@ Tcl_UtfPrev( /* Continue the search backwards... */ look--; - } while (trailBytesSeen < TCL_UTF_MAX); + } while (trailBytesSeen < /* was TCL_UTF_MAX */ 4); /* - * We've seen TCL_UTF_MAX trail bytes, so we know there will not be a + * We've seen 4 (was TCL_UTF_MAX) trail bytes, so we know there will not be a * properly formed byte sequence to find, and we can stop looking, * accepting the fallback. */ |