Differences From Artifact [03af0b6919]:

• File generic/tclUtf.c — part of check-in [6d9d5ac6a7] at 2023-10-13 13:27:40 on branch bug-abd489a1c — Proposed fix for [abd489a1c]: TclStringCmp() calls functions through pointer to incorrect type. Modified, swapping the wrapping-order (user: jan.nijtmans size: 64925) [more...]

To Artifact [669f7ea6fc]:

• File generic/tclUtf.c — part of check-in [8e673f54d3] at 2024-01-21 16:26:40 on branch core-8-6-branch — Optimize Tcl_UniCharIsControl(). Don't worry about range >= U+F0000, that's for TCL_UTF_MAX>3, which is unsupported for 8.6. (user: jan.nijtmans size: 64826) [more...]

1801
1802
1803
1804
1805
1806
1807
1808

1809
1810
1811
1812
1813
1814
1815
1816
1817
1818
1819
1820
1821

1801
1802
1803
1804
1805
1806
1807

1808






1809
1810
1811
1812
1813
1814
1815

-
+
-
-
-
-
-
-

Tcl_UniCharIsControl(
    int ch)			/* Unicode character to test. */
{
#if TCL_UTF_MAX > 3
    if (UNICODE_OUT_OF_RANGE(ch)) {
	/* Clear away extension bits, if any */
	ch &= 0x1FFFFF;
	if ((ch == 0xE0001) || ((ch >= 0xE0020) && (ch <= 0xE007F))) {
	return ((ch == 0xE0001) || ((unsigned)(ch - 0xE0020) <= 0x5F));
	    return 1;
	}
	if ((ch >= 0xF0000) && ((ch & 0xFFFF) <= 0xFFFD)) {
	    return 1;
	}
	return 0;
    }
#endif
    return ((CONTROL_BITS >> GetCategory(ch)) & 1);
}

/*
 *----------------------------------------------------------------------