diff options
Diffstat (limited to 'gcc/ada/lib-xref.adb')
| -rw-r--r-- | gcc/ada/lib-xref.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/lib-xref.adb b/gcc/ada/lib-xref.adb index db8097ab031..81b724103f4 100644 --- a/gcc/ada/lib-xref.adb +++ b/gcc/ada/lib-xref.adb @@ -847,7 +847,7 @@ package body Lib.Xref is if Typ = 'p' and then Is_Subprogram (N) - and then Is_Overriding_Operation (N) + and then Present (Overridden_Operation (N)) then Xrefs.Table (Indx).Typ := 'P'; else @@ -1172,7 +1172,7 @@ package body Lib.Xref is if Is_Type (Ent) and then Is_Tagged_Type (Ent) - and then Ent = Base_Type (Ent) + and then Is_Base_Type (Ent) and then In_Extended_Main_Source_Unit (Ent) then Generate_Prim_Op_References (Ent); @@ -1281,7 +1281,7 @@ package body Lib.Xref is if Is_Type (Ent) and then Is_Tagged_Type (Ent) and then Is_Derived_Type (Ent) - and then Ent = Base_Type (Ent) + and then Is_Base_Type (Ent) and then In_Extended_Main_Source_Unit (Ent) then declare @@ -2163,8 +2163,8 @@ package body Lib.Xref is end loop; end; - -- For array types, list index types as well. - -- (This is not C, indices have distinct types). + -- For array types, list index types as well. (This is + -- not C, indexes have distinct types). elsif Is_Array_Type (XE.Ent) then declare @@ -2183,7 +2183,7 @@ package body Lib.Xref is -- on operation that was overridden. if Is_Subprogram (XE.Ent) - and then Is_Overriding_Operation (XE.Ent) + and then Present (Overridden_Operation (XE.Ent)) then Output_Overridden_Op (Overridden_Operation (XE.Ent)); end if; |