diff options
Diffstat (limited to 'gcc/ada/s-tpopsp-lynxos.adb')
| -rw-r--r-- | gcc/ada/s-tpopsp-lynxos.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/s-tpopsp-lynxos.adb b/gcc/ada/s-tpopsp-lynxos.adb index 2673d0e30b6..91bf83ea973 100644 --- 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; |