X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=gcc%2Fada%2Fa-tasatt.adb;h=35801e2896ea88c81790711f4d7e05ddf1886faf;hb=3588eff44bee374d3da3b564b6d9a870303aca9a;hp=873b3870409762d16e0319425775e37cb7026b51;hpb=28ed91d40c6a1f579b76e546fa0ed42f8f28fd7b;p=pf3gnuchains%2Fgcc-fork.git

diff --git a/gcc/ada/a-tasatt.adb b/gcc/ada/a-tasatt.adb
index 873b3870409..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,8 +394,8 @@ package body Ada.Task_Attributes is
      (T    : Task_Identification.Task_Id := Task_Identification.Current_Task)
       return Attribute_Handle
    is
-      TT            : Task_ID := To_Task_ID (T);
-      Error_Message : constant String := "Trying to get the reference of a ";
+      TT            : constant Task_Id := To_Task_Id (T);
+      Error_Message : constant String  := "Trying to get the reference of a ";
 
    begin
       if TT = null then
@@ -484,8 +484,8 @@ package body Ada.Task_Attributes is
    procedure Reinitialize
      (T : Task_Identification.Task_Id := Task_Identification.Current_Task)
    is
-      TT : Task_ID := To_Task_ID (T);
-      Error_Message : constant String := "Trying to Reinitialize a ";
+      TT            : constant Task_Id := To_Task_Id (T);
+      Error_Message : constant String  := "Trying to Reinitialize a ";
 
    begin
       if TT = null then
@@ -554,8 +554,8 @@ package body Ada.Task_Attributes is
      (Val : Attribute;
       T   : Task_Identification.Task_Id := Task_Identification.Current_Task)
    is
-      TT            : Task_ID := To_Task_ID (T);
-      Error_Message : constant String := "Trying to Set the Value of a ";
+      TT            : constant Task_Id := To_Task_Id (T);
+      Error_Message : constant String  := "Trying to Set the Value of a ";
 
    begin
       if TT = null then
@@ -640,11 +640,11 @@ package body Ada.Task_Attributes is
    -----------
 
    function Value
-     (T    : Task_Identification.Task_Id := Task_Identification.Current_Task)
+     (T : Task_Identification.Task_Id := Task_Identification.Current_Task)
       return Attribute
    is
-      TT            : Task_ID := To_Task_ID (T);
-      Error_Message : constant String := "Trying to get the Value of a ";
+      TT            : constant Task_Id := To_Task_Id (T);
+      Error_Message : constant String  := "Trying to get the Value of a ";
 
    begin
       if TT = null then
@@ -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) :=