File : s-multip-bb.ads
1 ------------------------------------------------------------------------------
2 -- --
3 -- GNAT COMPILER COMPONENTS --
4 -- --
5 -- S Y S T E M . M U L T I P R O C E S S O R S --
6 -- --
7 -- S p e c --
8 -- --
9 -- This specification is derived from the Ada Reference Manual for use with --
10 -- GNAT. In accordance with the copyright of that document, you can freely --
11 -- copy and modify this specification, provided that if you redistribute a --
12 -- modified version, any changes that you have made are clearly indicated. --
13 -- --
14 ------------------------------------------------------------------------------
15
16 with System.BB.Parameters;
17
18 package System.Multiprocessors is
19 pragma Preelaborate (Multiprocessors);
20
21 type CPU_Range is range 0 .. System.BB.Parameters.Max_Number_Of_CPUs;
22
23 subtype CPU is CPU_Range range 1 .. CPU_Range'Last;
24
25 Not_A_Specific_CPU : constant CPU_Range := 0;
26
27 function Number_Of_CPUs return CPU;
28 pragma Inline (Number_Of_CPUs);
29 -- Number of available CPUs
30
31 end System.Multiprocessors;