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

+ implement System.CPUCount on darwin, resolves #41187

Browse Source
This commit is contained in:
florian 2025-03-15 11:58:13 +01:00
parent 4f92679625
commit 8870c72d91
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/bsd/system.pp
View File

@ -77,6 +77,9 @@ Implementation
{$endif defined(CPUARM) or defined(CPUM68K)} {$endif defined(CPUARM) or defined(CPUM68K)}
{$ifdef darwin}
{$define HAS_GETCPUCOUNT}
{$endif darwin}
{$ifdef FPC_HAS_INDIRECT_ENTRY_INFORMATION} {$ifdef FPC_HAS_INDIRECT_ENTRY_INFORMATION}
{$define FPC_SYSTEM_HAS_OSSETUPENTRYINFORMATION} {$define FPC_SYSTEM_HAS_OSSETUPENTRYINFORMATION}
@ -105,6 +108,19 @@ end;
{$ifdef darwin} {$ifdef darwin}
procedure normalexit(status: cint); cdecl; external 'c' name 'exit'; procedure normalexit(status: cint); cdecl; external 'c' name 'exit';
function sysctlbyname (Name: PAnsiChar; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint; cdecl; external name 'sysctlbyname';
function GetCPUCount: LongWord;
var
oldp: int64;
oldlenp: size_t;
begin
oldlenp:=sizeof(oldp);
sysctlbyname('machdep.cpu.core_count',@oldp,@oldlenp,nil,0);
Result:=oldp;
end;
{$endif} {$endif}
{$if defined(openbsd)} {$if defined(openbsd)}