From 95edbf5e5fb2c57ceda70cdf277d9b7655c1796e Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 6 Sep 2017 12:09:55 +0200 Subject: [PATCH] Minor reformatting. From-SVN: r251769 --- gcc/ada/exp_attr.adb | 4 ++-- gcc/ada/sem_attr.adb | 2 +- gcc/ada/sem_util.ads | 12 ++++++------ 3 files changed, 9 insertions(+), 9 deletions(-) diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index 456c1cb01f6..d537cf3a5f5 100644 --- 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 44320b89ff0..87dc50f6436 100644 --- 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 1656c402437..6db454b2adc 100644 --- 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 -- 2.30.2