Tcl Source Code: Diff

Differences From Artifact [5e9e721e61]:

File generic/tclUtf.c — part of check-in [9b8a66aff6] at 2024-03-20 20:29:25 on branch main — Fix [6811a00819]: lsearch performance degradation on Tcl 8.6.11 release (thanks, Sergey!) (user: jan.nijtmans size: 67780) [more...]

File generic/tclUtf.c — part of check-in [835b1a5566] at 2024-05-10 15:40:16 on branch main — More whitespace cleanup (user: dkf size: 67778) [more...]

︙			︙
1713 1714 1715 1716 1717 1718 1719 ~~1720~~ 1721 1722 1723 1724 1725 1726 1727	ct += TclUtfToUniChar(ct, &ch2); if (ch1 != ch2) { return ch1 - ch2; } } return UCHAR(cs) - UCHAR(ct); } /* ---------------------------------------------------------------------- * TclUtfCasecmp -- * * Compare UTF chars of string cs to string ct case insensitively.	<	1713 1714 1715 1716 1717 1718 1719 1720 1721 1722 1723 1724 1725 1726	ct += TclUtfToUniChar(ct, &ch2); if (ch1 != ch2) { return ch1 - ch2; } } return UCHAR(cs) - UCHAR(ct); } /* ---------------------------------------------------------------------- * TclUtfCasecmp -- * * Compare UTF chars of string cs to string ct case insensitively.
︙			︙
1753 1754 1755 1756 1757 1758 1759 ~~1760~~ 1761 1762 1763 1764 1765 1766 1767	if (ch1 != ch2) { return ch1 - ch2; } } } return UCHAR(cs) - UCHAR(ct); } /* ---------------------------------------------------------------------- * Tcl_UniCharToUpper -- * * Compute the uppercase equivalent of the given Unicode character.	<	1752 1753 1754 1755 1756 1757 1758 1759 1760 1761 1762 1763 1764 1765	if (ch1 != ch2) { return ch1 - ch2; } } } return UCHAR(cs) - UCHAR(ct); } /* ---------------------------------------------------------------------- * Tcl_UniCharToUpper -- * * Compute the uppercase equivalent of the given Unicode character.
︙			︙