paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-10 10:37:14 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils, Translations unit: fixed compilation on 32-bit Darwin as reported on forum:

Browse Source 
https://forum.lazarus.freepascal.org/index.php/topic,65612.msg500834.html#msg500834
This commit is contained in:
Maxim Ganetsky 2023-12-31 20:19:31 +03:00
parent 1b5087853e
commit beb17ad4d7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazutils/translations.pas
View File

@ -249,7 +249,7 @@ end;
function ComparePOItems(Item1, Item2: Pointer): Integer;
begin
Result := CompareText(TPOFileItem(Item1).IdentifierLow,
Result := SysUtils.CompareText(TPOFileItem(Item1).IdentifierLow,
TPOFileItem(Item2).IdentifierLow);
end;
@ -850,7 +850,7 @@ end;
procedure TPOFile.SetCharSet(const AValue: String);
begin
if (CompareText(FCharSet, AValue) = 0) then Exit;
if (SysUtils.CompareText(FCharSet, AValue) = 0) then Exit;
if (AValue = '') then FCharSet := 'UTF-8'
else FCharSet := AValue;
end;