From c40840b202ddaa33c603b38edf7d775b2c459ae3 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Thu, 31 Jul 2008 12:25:14 +0200 Subject: [PATCH] sem_ch12.adb: Minor reformatting 2008-07-31 Robert Dewar * sem_ch12.adb: Minor reformatting From-SVN: r138377 --- gcc/ada/sem_ch12.adb | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) 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)); -- 2.30.2