Minor reformatting.

From-SVN: r251769

diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb
index 456c1cb01f6a064a67668777a86ca9bdda9cf651..d537cf3a5f55deb1f32f87e205023b9fda8bcfe1 100644 (file)
--- a/gcc/ada/exp_attr.adb
+++ b/gcc/ada/exp_attr.adb
@@ -1597,8 +1597,8 @@ package body Exp_Attr is
       procedure Rewrite_Object_Reference_Image
         (Name    : Name_Id;
          Str_Typ : Entity_Id);
-      --  Rewrite an 'Image attribute applied to an object reference for
-      --  AI12-0012401 into an attribute applied to a type.
+      --  Rewrite an Image attribute applied to an object reference for
+      --  AI12-00124 into an attribute applied to a type.
 
       procedure Rewrite_Stream_Proc_Call (Pname : Entity_Id);
       --  Rewrites a stream attribute for Read, Write or Output with the

diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb
index 44320b89ff095a18e294fe881553927b587146ed..87dc50f64360da92af8add3d910b34f15ca5540f 100644 (file)
--- a/gcc/ada/sem_attr.adb
+++ b/gcc/ada/sem_attr.adb
@@ -364,7 +364,7 @@ package body Sem_Attr is
       --  Check that P is an object reference
 
       procedure Check_Object_Reference_Image (Str_Typ : Entity_Id);
-      --  Verify that the prefix of an image attribute....
+      --  Verify that the prefix of an image attribute.... ???
 
       procedure Check_PolyORB_Attribute;
       --  Validity checking for PolyORB/DSA attribute

diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads
index 1656c402437500f40104413b6bcf69076152514f..6db454b2adc112af2746a836a106ab2994cf4bc5 100644 (file)
--- a/gcc/ada/sem_util.ads
+++ b/gcc/ada/sem_util.ads
@@ -1602,13 +1602,13 @@ package Sem_Util is
      (Prefix : Node_Id;
       P_Typ  : Entity_Id) return Boolean;
    --  Returns true if an 'Image, 'Wide_Image, or 'Wide_Wide_Image attribute
-   --  can be applied to a given object-reference prefix (see AI12-00124-1).
+   --  can be applied to a given object-reference prefix (see AI12-00124).
 
-   --  AI12-00124-1 : The ARG has adopted the GNAT semantics of 'Img for
-   --  scalar types, so that the prefix can be an object and not a type,
-   --  and there is no need for an argument. Given the vote of confidence
-   --  from the ARG, simplest is to transform this new usage of 'Image
-   --  into a reference to 'Img.
+   --  AI12-00124: The ARG has adopted the GNAT semantics of 'Img for scalar
+   --  types, so that the prefix can be an object and not a type, and there is
+   --  no need for an argument. Given the vote of confidence from the ARG,
+   --  simplest is to transform this new usage of 'Image into a reference to
+   --  'Img.
 
    function Is_Inherited_Operation (E : Entity_Id) return Boolean;
    --  E is a subprogram. Return True is E is an implicit operation inherited