diff options
Diffstat (limited to 'gcc/ada/s-inmaop-vms.adb')
| -rw-r--r-- | gcc/ada/s-inmaop-vms.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/s-inmaop-vms.adb b/gcc/ada/s-inmaop-vms.adb index 2cbfd0eb715..044eac7d037 100644 --- a/gcc/ada/s-inmaop-vms.adb +++ b/gcc/ada/s-inmaop-vms.adb @@ -59,7 +59,7 @@ package body System.Interrupt_Management.Operations is use System.Tasking; use type unsigned_short; - function To_Address is new Unchecked_Conversion (Task_ID, System.Address); + function To_Address is new Unchecked_Conversion (Task_Id, System.Address); package POP renames System.Task_Primitives.Operations; ---------------------------- @@ -122,7 +122,7 @@ package body System.Interrupt_Management.Operations is function Interrupt_Wait (Mask : access Interrupt_Mask) return Interrupt_ID is - Self_ID : constant Task_ID := Self; + Self_ID : constant Task_Id := Self; Iosb : IO_Status_Block_Type := (0, 0, 0); Status : Cond_Value_Type; |
