diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-05-18 20:23:30 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-05-18 20:23:30 (GMT) |
| commit | e54cad6de1c547761044db23d6b9358b00db2230 (patch) | |
| tree | 288afd61ee41c0c8f9f1d2f9dda29ec145ae9b4c /generic/tclUtf.c | |
| parent | 04cc75b6f5e3fd31abae4090243d20e965f9d4e4 (diff) | |
| download | tcl-e54cad6de1c547761044db23d6b9358b00db2230.zip tcl-e54cad6de1c547761044db23d6b9358b00db2230.tar.gz tcl-e54cad6de1c547761044db23d6b9358b00db2230.tar.bz2 | |
Tiny fix for TCL_UTF_MAX=4 build only: Since Tcl_UtfNext() verifies 4 bytes for lead bytes F0-F5, Tcl_UtfCharComplete() should guarantee that those 4 bytes are available, not 3.
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 4454558..ed9138b 100644 --- a/generic/tclUtf.c +++ b/generic/tclUtf.c @@ -87,7 +87,7 @@ static const unsigned char complete[256] = { /* End of "continuation byte section" */ 2,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3, -#if TCL_UTF_MAX > 4 +#if TCL_UTF_MAX > 3 4,4,4,4,4, #else 3,3,3,3,3, |