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

Merged revision(s) 55241 #9b0e7b0b35 from trunk:

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

git-svn-id: branches/fixes_1_8@55255 -
This commit is contained in:
maxim 2017-06-05 22:44:36 +00:00
parent 417085fa70
commit b20a1fbbac
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)}