2004-05-17 Richard Kenner <kenner@vlsi1.ultra.nyu.edu>

[pf3gnuchains/gcc-fork.git] / gcc / ada / s-tpopsp-lynxos.adb

diff --git a/gcc/ada/s-tpopsp-lynxos.adb b/gcc/ada/s-tpopsp-lynxos.adb
index 2673d0e..91bf83e 100644 (file)
--- a/gcc/ada/s-tpopsp-lynxos.adb
+++ b/gcc/ada/s-tpopsp-lynxos.adb
@@ -40,7 +40,7 @@ package body Specific is
    -- Initialize --
    ----------------
 
-   procedure Initialize (Environment_Task : Task_ID) is
+   procedure Initialize (Environment_Task : Task_Id) is
       pragma Warnings (Off, Environment_Task);
       Result : Interfaces.C.int;
 
@@ -66,7 +66,7 @@ package body Specific is
    -- Set --
    ---------
 
-   procedure Set (Self_Id : Task_ID) is
+   procedure Set (Self_Id : Task_Id) is
       Result : Interfaces.C.int;
 
    begin
@@ -91,7 +91,7 @@ package body Specific is
    --  hierarchy, much like the existing implicitly created signal-server
    --  tasks.
 
-   function Self return Task_ID is
+   function Self return Task_Id is
       Value : aliased System.Address;
 
       Result : Interfaces.C.int;
@@ -104,7 +104,7 @@ package body Specific is
       --  If the key value is Null, then it is a non-Ada task.
 
       if Value /= System.Null_Address then
-         return To_Task_ID (Value);
+         return To_Task_Id (Value);
       else
          return Register_Foreign_Thread;
       end if;