Differences From Artifact [25c60f32b5]:

• File generic/tclUtf.c — part of check-in [11eb38dbe2] at 2020-04-17 09:17:16 on branch core-8-5-orig — Original implementation of Tcl 8.5 before the Tcl_UtfPrev/Tcl_UtfNext reform. But: Add the (harmless) TclUtfNext/TclUtfPrev macro's and add the 0xC1 byte as being invalid. Then ... add the testcases from core-8-5-branch (and a few more), with adapted expectations according to the original implementation. Let's see where we get. (user: jan.nijtmans size: 51201)

To Artifact [1baf563b6a]:

• File generic/tclUtf.c — part of check-in [7c70d7b16d] at 2020-04-19 20:49:34 on branch core-8-5-orig — Merge 8.5, and add the fix for [27944a3661] here too. Getting closer to what test-results we expect. Overlong sequences not handled yet, so that's where differences are expected (user: jan.nijtmans size: 51337) [more...]

642
643
644
645
646
647
648






649
650
651
652
653
654
655

642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661

+
+
+
+
+
+

CONST char *
Tcl_UtfNext(
    CONST char *src)		/* The current location in the string. */
{
    Tcl_UniChar ch;

    if (((*src) & 0xC0) == 0x80) {
	if ((((*++src) & 0xC0) == 0x80) && (((*++src) & 0xC0) == 0x80)) {
	    ++src;
	}
	return src;
    }
    return src + TclUtfToUniChar(src, &ch);
}

/*
 *---------------------------------------------------------------------------
 *
 * Tcl_UtfPrev --