diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-27 19:20:19 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-27 19:20:19 +0000 |
| commit | 488133ac66acbad4fbb7177438c6a651c3de8a07 (patch) | |
| tree | f502522737a39b8803377a20fa7f25073cbd16d1 /gcc/ada/lib-xref.adb | |
| parent | 5ed3bd072fbadb6e5dbac35a56dd35e94827b04d (diff) | |
| download | gcc-488133ac66acbad4fbb7177438c6a651c3de8a07.tar.gz | |
2008-05-27 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk r136046
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@136051 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/lib-xref.adb')
| -rw-r--r-- | gcc/ada/lib-xref.adb | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/gcc/ada/lib-xref.adb b/gcc/ada/lib-xref.adb index a7cc61a06e1..8af553fef59 100644 --- a/gcc/ada/lib-xref.adb +++ b/gcc/ada/lib-xref.adb @@ -1150,16 +1150,14 @@ package body Lib.Xref is New_Entry (Tref); if Is_Record_Type (Ent) - and then Present (Abstract_Interfaces (Ent)) + and then Present (Interfaces (Ent)) then -- Add an entry for each one of the given interfaces -- implemented by type Ent. declare - Elmt : Elmt_Id; - + Elmt : Elmt_Id := First_Elmt (Interfaces (Ent)); begin - Elmt := First_Elmt (Abstract_Interfaces (Ent)); while Present (Elmt) loop New_Entry (Node (Elmt)); Next_Elmt (Elmt); @@ -2032,13 +2030,11 @@ package body Lib.Xref is -- Additional information for types with progenitors if Is_Record_Type (XE.Ent) - and then Present (Abstract_Interfaces (XE.Ent)) + and then Present (Interfaces (XE.Ent)) then declare - Elmt : Elmt_Id; - + Elmt : Elmt_Id := First_Elmt (Interfaces (XE.Ent)); begin - Elmt := First_Elmt (Abstract_Interfaces (XE.Ent)); while Present (Elmt) loop Check_Type_Reference (Node (Elmt), True); Next_Elmt (Elmt); |