diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-09-06 12:09:55 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-09-06 12:09:55 +0200 |
| commit | 95edbf5e5fb2c57ceda70cdf277d9b7655c1796e (patch) | |
| tree | c200cbc17527a9d35137aa4c6734cae0f0fd5e7d /gcc | |
| parent | e9238cc1213a6de02d0b17d4581149af71f6a409 (diff) | |
| download | gcc-95edbf5e5fb2c57ceda70cdf277d9b7655c1796e.zip gcc-95edbf5e5fb2c57ceda70cdf277d9b7655c1796e.tar.gz gcc-95edbf5e5fb2c57ceda70cdf277d9b7655c1796e.tar.bz2 | |
Minor reformatting.
From-SVN: r251769
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_attr.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/sem_attr.adb | 2 | ||||
| -rw-r--r-- | 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 456c1cb..d537cf3 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 44320b8..87dc50f 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 1656c40..6db454b 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 |