paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-05 14:18:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

Adds a further performance optimization to lowercase by moving the new_c1 to only where needed

Browse Source 
git-svn-id: trunk@32865 -
This commit is contained in:
sekelsenmat 2011-10-13 06:22:44 +00:00
parent 0071c56828
commit 7d8796f113
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazutils/lazutf8.pas
View File

@ -1609,7 +1609,6 @@ begin
while InStr < InStrEnd do
begin
c1 := InStr^;
new_c1 := c1;
case c1 of
'A'..'Z':
begin
@ -1635,9 +1634,11 @@ begin
end;
// Chars with 2-bytes which might be modified
#$C3, #$C4, #$C5..#$C8, #$CE, #$D0..#$D2:
//#$C3..#$C8, #$CE, #$D0..#$D2:
#$C3..#$D2:
begin
c2 := InStr[1];
new_c1 := c1;
new_c2 := c2;
case c1 of
// Latin Characters 0000–0FFF http://en.wikibooks.org/wiki/Unicode/Character_reference/0000-0FFF
@ -1796,6 +1797,7 @@ begin
// E1 83 80 - E1 83 85 => E2 B4 A0 - E2 B4 A5
#$E1:
begin
new_c1 := c1;
c2 := InStr[1];
c3 := InStr[2];
if (c2 = #$82) and (c3 in [#$A0..#$BF]) then