From af6f686de1055035a20c7ed40c0cf2d586e0eaa7 Mon Sep 17 00:00:00 2001 From: bstarynk Date: Fri, 1 Aug 2008 14:34:58 +0000 Subject: 2008-08-01 Basile Starynkevitch MELT branch merged with trunk r138450 git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@138521 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/sem_ch12.adb | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'gcc/ada/sem_ch12.adb') diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index cae84097d1a..b2e7d852487 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -2413,10 +2413,9 @@ package body Sem_Ch12 is Error_Msg_N ("no visible entity matches specification", Def); end if; - else - - -- Several interpretations. Disambiguate as for a renaming. + -- More than one interpretation, so disambiguate as for a renaming + else declare I : Interp_Index; I1 : Interp_Index := 0; @@ -2427,7 +2426,6 @@ package body Sem_Ch12 is Subp := Any_Id; Get_First_Interp (Def, I, It); while Present (It.Nam) loop - if Entity_Matches_Spec (It.Nam, Nam) then if Subp /= Any_Id then It1 := Disambiguate (Def, I1, I, Etype (Subp)); -- cgit v1.2.1