paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-24 07:19:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Fix compilation of utf8process.pp on Darwin with fpc trunk.

Browse Source 
git-svn-id: trunk@55241 -
This commit is contained in:
bart 2017-06-05 15:54:24 +00:00
parent b2679b7d0d
commit 9b0e7b0b35
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazutils/utf8process.pp
View File

@ -168,7 +168,11 @@ begin
mib[0] := CTL_HW; mib[0] := CTL_HW;
mib[1] := HW_NCPU; mib[1] := HW_NCPU;
len := sizeof(t); len := sizeof(t);
{$if FPC_FULLVERSION >= 30101}
fpsysctl(@mib, 2, @t, @len, Nil, 0);
{$else}
fpsysctl(pchar(@mib), 2, @t, @len, Nil, 0); fpsysctl(pchar(@mib), 2, @t, @len, Nil, 0);
{$endif}
Result:=t; Result:=t;
end; end;
{$ELSEIF defined(linux)} {$ELSEIF defined(linux)}