aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.8.1/gcc/ada/s-multip.ads
diff options
context:
space:
mode:
Diffstat (limited to 'gcc-4.8.1/gcc/ada/s-multip.ads')
-rw-r--r--gcc-4.8.1/gcc/ada/s-multip.ads28
1 files changed, 28 insertions, 0 deletions
diff --git a/gcc-4.8.1/gcc/ada/s-multip.ads b/gcc-4.8.1/gcc/ada/s-multip.ads
new file mode 100644
index 000000000..7eb8dd6a3
--- /dev/null
+++ b/gcc-4.8.1/gcc/ada/s-multip.ads
@@ -0,0 +1,28 @@
+------------------------------------------------------------------------------
+-- --
+-- GNAT COMPILER COMPONENTS --
+-- --
+-- S Y S T E M . M U L T I P R O C E S S O R S --
+-- --
+-- S p e c --
+-- --
+-- This specification is derived from the Ada Reference Manual for use with --
+-- GNAT. In accordance with the copyright of that document, you can freely --
+-- copy and modify this specification, provided that if you redistribute a --
+-- modified version, any changes that you have made are clearly indicated. --
+-- --
+------------------------------------------------------------------------------
+
+package System.Multiprocessors is
+ pragma Preelaborate (Multiprocessors);
+
+ type CPU_Range is range 0 .. 2 ** 16 - 1;
+
+ subtype CPU is CPU_Range range 1 .. CPU_Range'Last;
+
+ Not_A_Specific_CPU : constant CPU_Range := 0;
+
+ function Number_Of_CPUs return CPU;
+ -- Number of available CPUs
+
+end System.Multiprocessors;