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; |