From: Robert Dewar <dewar@adacore.com>
Date: Thu, 31 Jul 2008 10:25:14 +0000 (+0200)
Subject: sem_ch12.adb: Minor reformatting
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=c40840b202ddaa33c603b38edf7d775b2c459ae3;p=platform%2Fupstream%2Fgcc.git

sem_ch12.adb: Minor reformatting

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

	* sem_ch12.adb: Minor reformatting

From-SVN: r138377
---

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