phcpack_2.4.88_e448e94a/src/Ada/Tasking/number_of_cores.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
with System.Multiprocessors;

function Number_of_Cores return integer32 is

 -- function core_count return integer32;
 -- pragma import(C, core_count, "corecount");
 -- res : constant integer32 := core_count;

  res : constant integer32
      := integer32(System.Multiprocessors.Number_of_CPUs);

begin
  return res;
end Number_of_Cores;