diff options
Diffstat (limited to 'gcc/ada/s-mudido.ads')
| -rw-r--r-- | gcc/ada/s-mudido.ads | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/ada/s-mudido.ads b/gcc/ada/s-mudido.ads index 62cc01d..635a847d 100644 --- a/gcc/ada/s-mudido.ads +++ b/gcc/ada/s-mudido.ads @@ -39,31 +39,31 @@ package System.Multiprocessors.Dispatching_Domains is function Get_Dispatching_Domain (T : Ada.Task_Identification.Task_Id := - Ada.Task_Identification.Current_Task) - return Dispatching_Domain; + Ada.Task_Identification.Current_Task) return Dispatching_Domain; procedure Assign_Task (Domain : in out Dispatching_Domain; CPU : CPU_Range := Not_A_Specific_CPU; T : Ada.Task_Identification.Task_Id := - Ada.Task_Identification.Current_Task); + Ada.Task_Identification.Current_Task); procedure Set_CPU (CPU : CPU_Range; T : Ada.Task_Identification.Task_Id := - Ada.Task_Identification.Current_Task); + Ada.Task_Identification.Current_Task); function Get_CPU (T : Ada.Task_Identification.Task_Id := - Ada.Task_Identification.Current_Task) - return CPU_Range; + Ada.Task_Identification.Current_Task) return CPU_Range; procedure Delay_Until_And_Set_CPU - (Delay_Until_Time : Ada.Real_Time.Time; CPU : CPU_Range); + (Delay_Until_Time : Ada.Real_Time.Time; + CPU : CPU_Range); private type Dispatching_Domain is new System.Tasking.Dispatching_Domain_Access; System_Dispatching_Domain : constant Dispatching_Domain := - Dispatching_Domain (System.Tasking.System_Domain); + Dispatching_Domain + (System.Tasking.System_Domain); end System.Multiprocessors.Dispatching_Domains; |