|
111
|
1 ------------------------------------------------------------------------------
|
|
|
2 -- --
|
|
|
3 -- GNAT RUN-TIME COMPONENTS --
|
|
|
4 -- --
|
|
|
5 -- SYSTEM.MULTIPROCESSORS.DISPATCHING_DOMAINS --
|
|
|
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 Ada.Real_Time;
|
|
|
17
|
|
|
18 with Ada.Task_Identification;
|
|
|
19
|
|
|
20 private with System.Tasking;
|
|
|
21
|
|
|
22 package System.Multiprocessors.Dispatching_Domains is
|
|
|
23 -- pragma Preelaborate (Dispatching_Domains);
|
|
|
24 -- ??? According to AI 167 this unit should be preelaborate, but it cannot
|
|
|
25 -- be preelaborate because it depends on Ada.Real_Time which is not
|
|
|
26 -- preelaborate.
|
|
|
27
|
|
|
28 Dispatching_Domain_Error : exception;
|
|
|
29
|
|
|
30 type Dispatching_Domain (<>) is limited private;
|
|
|
31
|
|
|
32 System_Dispatching_Domain : constant Dispatching_Domain;
|
|
|
33
|
|
|
34 function Create (First : CPU; Last : CPU_Range) return Dispatching_Domain;
|
|
|
35
|
|
|
36 function Get_First_CPU (Domain : Dispatching_Domain) return CPU;
|
|
|
37
|
|
|
38 function Get_Last_CPU (Domain : Dispatching_Domain) return CPU_Range;
|
|
|
39
|
|
|
40 type CPU_Set is array (CPU range <>) of Boolean;
|
|
|
41
|
|
|
42 function Create (Set : CPU_Set) return Dispatching_Domain;
|
|
|
43
|
|
|
44 function Get_CPU_Set (Domain : Dispatching_Domain) return CPU_Set;
|
|
|
45
|
|
|
46 function Get_Dispatching_Domain
|
|
|
47 (T : Ada.Task_Identification.Task_Id :=
|
|
|
48 Ada.Task_Identification.Current_Task) return Dispatching_Domain;
|
|
|
49
|
|
|
50 procedure Assign_Task
|
|
|
51 (Domain : in out Dispatching_Domain;
|
|
|
52 CPU : CPU_Range := Not_A_Specific_CPU;
|
|
|
53 T : Ada.Task_Identification.Task_Id :=
|
|
|
54 Ada.Task_Identification.Current_Task);
|
|
|
55
|
|
|
56 procedure Set_CPU
|
|
|
57 (CPU : CPU_Range;
|
|
|
58 T : Ada.Task_Identification.Task_Id :=
|
|
|
59 Ada.Task_Identification.Current_Task);
|
|
|
60
|
|
|
61 function Get_CPU
|
|
|
62 (T : Ada.Task_Identification.Task_Id :=
|
|
|
63 Ada.Task_Identification.Current_Task) return CPU_Range;
|
|
|
64
|
|
|
65 procedure Delay_Until_And_Set_CPU
|
|
|
66 (Delay_Until_Time : Ada.Real_Time.Time;
|
|
|
67 CPU : CPU_Range);
|
|
|
68
|
|
|
69 private
|
|
|
70 type Dispatching_Domain is new System.Tasking.Dispatching_Domain_Access;
|
|
|
71
|
|
|
72 System_Dispatching_Domain : constant Dispatching_Domain :=
|
|
|
73 Dispatching_Domain
|
|
|
74 (System.Tasking.System_Domain);
|
|
|
75 end System.Multiprocessors.Dispatching_Domains;
|
