diff options
Diffstat (limited to 'gcc/ada/s-tpopde-vms.adb')
| -rw-r--r-- | gcc/ada/s-tpopde-vms.adb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/s-tpopde-vms.adb b/gcc/ada/s-tpopde-vms.adb index 89db824..5fa9a92 100644 --- a/gcc/ada/s-tpopde-vms.adb +++ b/gcc/ada/s-tpopde-vms.adb @@ -70,10 +70,10 @@ package body System.Task_Primitives.Operations.DEC is ----------------------- function To_Unsigned_Longword is new - Unchecked_Conversion (Task_ID, Unsigned_Longword); + Unchecked_Conversion (Task_Id, Unsigned_Longword); function To_Task_Id is new - Unchecked_Conversion (Unsigned_Longword, Task_ID); + Unchecked_Conversion (Unsigned_Longword, Task_Id); function To_FAB_RAB is new Unchecked_Conversion (Address, FAB_RAB_Access_Type); @@ -84,7 +84,7 @@ package body System.Task_Primitives.Operations.DEC is procedure Interrupt_AST_Handler (ID : Address) is Result : Interfaces.C.int; - AST_Self_ID : constant Task_ID := To_Task_ID (ID); + AST_Self_ID : constant Task_Id := To_Task_Id (ID); begin Result := pthread_cond_signal_int_np (AST_Self_ID.Common.LL.CV'Access); pragma Assert (Result = 0); @@ -95,7 +95,7 @@ package body System.Task_Primitives.Operations.DEC is --------------------- procedure RMS_AST_Handler (ID : Address) is - AST_Self_ID : constant Task_ID := To_Task_Id (To_FAB_RAB (ID).CTX); + AST_Self_ID : constant Task_Id := To_Task_Id (To_FAB_RAB (ID).CTX); Result : Interfaces.C.int; begin @@ -109,7 +109,7 @@ package body System.Task_Primitives.Operations.DEC is ---------- function Self return Unsigned_Longword is - Self_ID : constant Task_ID := Self; + Self_ID : constant Task_Id := Self; begin Self_ID.Common.LL.AST_Pending := True; return To_Unsigned_Longword (Self); @@ -121,7 +121,7 @@ package body System.Task_Primitives.Operations.DEC is procedure Starlet_AST_Handler (ID : Address) is Result : Interfaces.C.int; - AST_Self_ID : constant Task_ID := To_Task_ID (ID); + AST_Self_ID : constant Task_Id := To_Task_Id (ID); begin AST_Self_ID.Common.LL.AST_Pending := False; Result := pthread_cond_signal_int_np (AST_Self_ID.Common.LL.CV'Access); @@ -133,7 +133,7 @@ package body System.Task_Primitives.Operations.DEC is ---------------- procedure Task_Synch is - Synch_Self_ID : constant Task_ID := Self; + Synch_Self_ID : constant Task_Id := Self; begin if Single_Lock then |