diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-04-17 04:45:26 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-04-17 04:45:26 (GMT) |
| commit | c998be1b068916a8009a76867ed4eaed8938d19b (patch) | |
| tree | 1864d005cc0bf76208d4a49d7890177656045517 /generic/tclUtf.c | |
| parent | 700b782299b5ac82c829eae5725cdc7b577390a6 (diff) | |
| download | tcl-c998be1b068916a8009a76867ed4eaed8938d19b.zip tcl-c998be1b068916a8009a76867ed4eaed8938d19b.tar.gz tcl-c998be1b068916a8009a76867ed4eaed8938d19b.tar.bz2 | |
When supporting 4-byte sequences, make sure the Overlong test does too, and
make sure the test results reflect it.
Diffstat (limited to 'generic/tclUtf.c')
| -rw-r--r-- | generic/tclUtf.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclUtf.c b/generic/tclUtf.c index fdf2e32..e637263 100644 --- a/generic/tclUtf.c +++ b/generic/tclUtf.c @@ -154,7 +154,7 @@ UtfCount( static CONST unsigned char overlong[3] = { 0x80, /* \xD0 -- all sequences valid */ 0xA0, /* \xE0\x80 through \xE0\x9F are invalid prefixes */ -#if TCL_UTF_MAX > 3 +#if TCL_UTF_MAX >= 3 0x90 /* \xF0\x80 through \xF0\x8F are invalid prefixes */ #else 0xC0 /* Not used, but reject all again for safety. */ |