From 690943fcd4d667a4de8614a565bc13a66816c94a Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Mon, 29 Aug 2011 13:42:00 +0000 Subject: a-cdlili.adb, [...]: Minor reformatting. 2011-08-29 Robert Dewar * 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 --- gcc/ada/sem_util.ads | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'gcc/ada/sem_util.ads') 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 -- cgit v1.1