diff options
| author | Robert Dewar <dewar@adacore.com> | 2011-08-29 13:42:00 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-29 15:42:00 +0200 |
| commit | 690943fcd4d667a4de8614a565bc13a66816c94a (patch) | |
| tree | f20f4df300d64f5600c1039d02d785c133bb1250 /gcc/ada/sem_util.ads | |
| parent | ff15f019e014d1d41e4a78d289f4f61873d62bd8 (diff) | |
| download | gcc-690943fcd4d667a4de8614a565bc13a66816c94a.zip gcc-690943fcd4d667a4de8614a565bc13a66816c94a.tar.gz gcc-690943fcd4d667a4de8614a565bc13a66816c94a.tar.bz2 | |
a-cdlili.adb, [...]: Minor reformatting.
2011-08-29 Robert Dewar <dewar@adacore.com>
* a-cdlili.adb, a-cdlili.ads, a-coinve.adb, a-coinve.ads,
sem_util.adb, sem_util.ads, a-cohama.adb, a-cohama.ads, a-coorse.adb,
a-coorse.ads, aspects.ads, sem_ch8.adb: Minor reformatting.
From-SVN: r178232
Diffstat (limited to 'gcc/ada/sem_util.ads')
| -rw-r--r-- | gcc/ada/sem_util.ads | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads index 89ae198..e9b4f43 100644 --- a/gcc/ada/sem_util.ads +++ b/gcc/ada/sem_util.ads @@ -804,17 +804,15 @@ package Sem_Util is -- by a derived type declaration. function Is_Inherited_Operation_For_Type - (E : Entity_Id; Typ : Entity_Id) return Boolean; + (E : Entity_Id; + Typ : Entity_Id) return Boolean; -- E is a subprogram. Return True is E is an implicit operation inherited -- by the derived type declaration for type Typ. function Is_Iterator (Typ : Entity_Id) return Boolean; - -- AI05-0139-2 : check whether Typ is derived from the predefined interface + -- AI05-0139-2: Check whether Typ is derived from the predefined interface -- Ada.Iterator_Interfaces.Forward_Iterator. - function Is_Reversible_Iterator (Typ : Entity_Id) return Boolean; - -- Ditto for Ada.Iterator_Interfaces.Reversible_Iterator. - function Is_LHS (N : Node_Id) return Boolean; -- Returns True iff N is used as Name in an assignment statement @@ -882,6 +880,10 @@ package Sem_Util is function Is_Renamed_Entry (Proc_Nam : Entity_Id) return Boolean; -- Return True if Proc_Nam is a procedure renaming of an entry + function Is_Reversible_Iterator (Typ : Entity_Id) return Boolean; + -- AI05-0139-2: Check whether Typ is derived from the predefined interface + -- Ada.Iterator_Interfaces.Reversible_Iterator. + function Is_Selector_Name (N : Node_Id) return Boolean; -- Given an N_Identifier node N, determines if it is a Selector_Name. -- As described in Sinfo, Selector_Names are special because they |