diff options
Diffstat (limited to 'gcc/ada/a-tasatt.adb')
| -rw-r--r-- | gcc/ada/a-tasatt.adb | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/gcc/ada/a-tasatt.adb b/gcc/ada/a-tasatt.adb index f68c6255a86..35801e2896e 100644 --- a/gcc/ada/a-tasatt.adb +++ b/gcc/ada/a-tasatt.adb @@ -41,7 +41,7 @@ -- we settled on the present compromise. Things we do not like about -- this implementation include: --- - It is vulnerable to bad Task_ID values, to the extent of +-- - It is vulnerable to bad Task_Id values, to the extent of -- possibly trashing memory and crashing the runtime system. -- - It requires dynamic storage allocation for each new attribute value, @@ -228,7 +228,7 @@ with Ada.Task_Identification; -- used for Task_Id --- Null_Task_ID +-- Null_Task_Id -- Current_Task with System.Error_Reporting; @@ -244,7 +244,7 @@ with System.Task_Primitives.Operations; with System.Tasking; -- used for Access_Address --- Task_ID +-- Task_Id -- Direct_Index_Vector -- Direct_Index @@ -336,8 +336,8 @@ package body Ada.Task_Attributes is (Access_Wrapper, Access_Dummy_Wrapper); -- To store pointer to actual wrapper of attribute node - function To_Task_ID is new Unchecked_Conversion - (Task_Identification.Task_Id, Task_ID); + function To_Task_Id is new Unchecked_Conversion + (Task_Identification.Task_Id, Task_Id); -- To access TCB of identified task type Local_Deallocator is access procedure (P : in out Access_Node); @@ -394,7 +394,7 @@ package body Ada.Task_Attributes is (T : Task_Identification.Task_Id := Task_Identification.Current_Task) return Attribute_Handle is - TT : constant Task_ID := To_Task_ID (T); + TT : constant Task_Id := To_Task_Id (T); Error_Message : constant String := "Trying to get the reference of a "; begin @@ -484,7 +484,7 @@ package body Ada.Task_Attributes is procedure Reinitialize (T : Task_Identification.Task_Id := Task_Identification.Current_Task) is - TT : constant Task_ID := To_Task_ID (T); + TT : constant Task_Id := To_Task_Id (T); Error_Message : constant String := "Trying to Reinitialize a "; begin @@ -554,7 +554,7 @@ package body Ada.Task_Attributes is (Val : Attribute; T : Task_Identification.Task_Id := Task_Identification.Current_Task) is - TT : constant Task_ID := To_Task_ID (T); + TT : constant Task_Id := To_Task_Id (T); Error_Message : constant String := "Trying to Set the Value of a "; begin @@ -643,7 +643,7 @@ package body Ada.Task_Attributes is (T : Task_Identification.Task_Id := Task_Identification.Current_Task) return Attribute is - TT : constant Task_ID := To_Task_ID (T); + TT : constant Task_Id := To_Task_Id (T); Error_Message : constant String := "Trying to get the Value of a "; begin @@ -782,7 +782,7 @@ begin -- Initialize the attribute, for all tasks. declare - C : System.Tasking.Task_ID := System.Tasking.All_Tasks_List; + C : System.Tasking.Task_Id := System.Tasking.All_Tasks_List; begin while C /= null loop C.Direct_Attributes (Local.Index) := |
