Differences From Artifact [a8ffe9df20]:

• File generic/tclUtf.c — part of check-in [853c8b207f] at 2020-04-22 19:22:47 on branch dgp-27944a3661 — Place first-draft implementation of the proposed change to handling of trail bytes by Tcl_UtfNext on branch dgp-27944a3661 for examination. (user: dgp size: 52832)

To Artifact [d32185c5a9]:

• File generic/tclUtf.c — part of check-in [de68f922b4] at 2020-04-22 20:10:31 on branch dgp-27944a3661 — Adapt implementation and tests to vary behavior with TCL_UTF_MAX. (user: dgp size: 52865)

645
646
647
648
649
650
651


652



653
654
655
656
657
658
659

645
646
647
648
649
650
651
652
653

654
655
656
657
658
659
660
661
662
663

+
+
-
+
+
+

    CONST char *src)		/* The current location in the string. */
{
    int byte = *((unsigned char *) src);
    int left = totalBytes[byte];
    const char *next = src + 1;

    if (((*src) & 0xC0) == 0x80) {
        if (
#if TCL_UTF_MAX > 3
        if ((((*++src) & 0xC0) == 0x80) && (((*++src) & 0xC0) == 0x80)) {
		(((*++src) & 0xC0) == 0x80) && 
#endif
		(((*++src) & 0xC0) == 0x80)) {
            ++src;
        }
        return src;
    }

    while (--left) {
	byte = *((unsigned char *) next);