diff options
Diffstat (limited to 'gcc/ada/sem_util.ads')
| -rw-r--r-- | gcc/ada/sem_util.ads | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads index b2b6cbf..d7154a2 100644 --- a/gcc/ada/sem_util.ads +++ b/gcc/ada/sem_util.ads @@ -368,14 +368,6 @@ package Sem_Util is -- Same as Einfo.Extra_Accessibility except thtat object renames -- are looked through. - function Effectively_Has_Constrained_Partial_View - (Typ : Entity_Id; - Scop : Entity_Id := Current_Scope) return Boolean; - -- Return True if Typ has attribute Has_Constrained_Partial_View set to - -- True; in addition, within a generic body, return True if a subtype is - -- a descendant of an untagged generic formal private or derived type, and - -- the subtype is not an unconstrained array subtype (RM 3.3(23.10/3)). - function Enclosing_CPP_Parent (Typ : Entity_Id) return Entity_Id; -- Returns the closest ancestor of Typ that is a CPP type. @@ -725,9 +717,6 @@ package Sem_Util is Exclude_Parents : Boolean := False) return Boolean; -- Returns true if the Typ_Ent implements interface Iface_Ent - function In_Generic_Body (Id : Entity_Id) return Boolean; - -- Determine whether entity Id appears inside a generic body - function In_Instance return Boolean; -- Returns True if the current scope is within a generic instance @@ -1503,13 +1492,6 @@ package Sem_Util is -- Return a unique name for entity E, which could be used to identify E -- across compilation units. - function Unit_Declaration_Node (Unit_Id : Entity_Id) return Node_Id; - -- Unit_Id is the simple name of a program unit, this function returns the - -- corresponding xxx_Declaration node for the entity. Also applies to the - -- body entities for subprograms, tasks and protected units, in which case - -- it returns the subprogram, task or protected body node for it. The unit - -- may be a child unit with any number of ancestors. - function Unit_Is_Visible (U : Entity_Id) return Boolean; -- Determine whether a compilation unit is visible in the current context, -- because there is a with_clause that makes the unit available. Used to |