Tcl Source Code: Diff

Differences From Artifact [5f74755db2]:

File generic/tclUtf.c — part of check-in [6f4a6b90ef] at 2020-05-07 21:59:47 on branch core-8-branch — Merge 8.6 (user: dgp size: 66535) [more...]

File generic/tclUtf.c — part of check-in [2cff341b8c] at 2020-05-10 20:11:31 on branch core-8-branch — Merge 8.6 (user: jan.nijtmans size: 66523) [more...]

︙
82 83 84 85 86 87 88 89 90 91 92 93 94 95 96	82 83 84 85 86 87 88 89 90 91 92 93 94 95 96	- +	3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3, /* 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 > 3 4,4,4,4,4, #else ~~1,1,~~1,1,1~~,~~ 3,3,3,3,3, #endif 1,1,1,1,1,1,1,1,1,1,1 }; / * Functions used only in this module. */
︙
170 171 172 173 174 175 176 ~~177~~ 178 ~~179 180 181 182 183 184~~ 185 186 187 188 189 190 191	170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190	- + - - - - - - + + + + +	static int Invalid( const char src) / Points to lead byte of a UTF-8 byte sequence / { unsigned char byte = UCHAR(src); int index; ~~if ((byte & 0xC3) != 0xC0) {~~ if ((byte & 0xC3) == 0xC0) { /* Only lead bytes 0xC0, 0xE0, 0xF0, 0xF4 need examination / ~~~~return 0;~~ } index = (byte - 0xC0) >> 1; if (UCHAR(src[1]) < bounds[index] \|\| UCHAR(src[1]) > bounds[index+1]) { / Out of bounds - report invalid. / return 1;~~ index = (byte - 0xC0) >> 1; if (UCHAR(src[1]) < bounds[index] \|\| UCHAR(src[1]) > bounds[index+1]) { / Out of bounds - report invalid. / return 1; } } return 0; } / ---------------------------------------------------------------------------
︙