paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 15:20:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

Lazutils: In UnicodeLowercase initialize tables only when needed. Issue #41060, by a-v-o-dev.

Browse Source
This commit is contained in:
Juha 2024-08-11 11:01:37 +03:00
parent 6123662232
commit 27ae911ab9
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazutils/lazutf16.pas
View File

@ -1005,15 +1005,16 @@ end;
function UnicodeLowercase(u: cardinal): cardinal;
begin
if not UnicodeTablesInitialized then
InitUnicodeTables; // Initialize only when needed.
if u<$00C0 then begin
// most common
if (u>=$0041) and (u<=$005A) then
Result:=u+32
else
Result:=u;
end else
end
else begin
if not UnicodeTablesInitialized then
InitUnicodeTables; // Initialize only when needed.
case u of
$00C0..$00DE: Result:=UnicodeLower00C0_00DE[u];
$0100..$024E: Result:=UnicodeLower0100_024E[u];
@ -1029,6 +1030,7 @@ begin
$2C60..$2CE2: Result:=UnicodeLower2C60_2CE2[u];
$FF21..$FF3A: Result:=u+32;
else Result:=u;
end;
end;
end;