2008-07-31 Robert Dewar <dewar@adacore.com>

	* sem_ch12.adb: Minor reformatting

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@138377 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb
index cae8409..b2e7d85 100644 (file)
--- 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));