2004-05-17 Steve Kargl <kargls@comcast.net>

[pf3gnuchains/gcc-fork.git] / gcc / ada / s-inmaop-vms.adb

diff --git a/gcc/ada/s-inmaop-vms.adb b/gcc/ada/s-inmaop-vms.adb
index 2cbfd0e..044eac7 100644 (file)
--- 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;