diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-07-31 12:25:14 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-07-31 12:25:14 +0200 |
| commit | c40840b202ddaa33c603b38edf7d775b2c459ae3 (patch) | |
| tree | 71c788cdc9b85706cc120edab9c33966f9ac8fff /gcc/ada/sem_ch12.adb | |
| parent | 2dc740101e1ac5a1505528e54806fb7d7dde17d9 (diff) | |
| download | gcc-c40840b202ddaa33c603b38edf7d775b2c459ae3.zip gcc-c40840b202ddaa33c603b38edf7d775b2c459ae3.tar.gz gcc-c40840b202ddaa33c603b38edf7d775b2c459ae3.tar.bz2 | |
sem_ch12.adb: Minor reformatting
2008-07-31 Robert Dewar <dewar@adacore.com>
* sem_ch12.adb: Minor reformatting
From-SVN: r138377
Diffstat (limited to 'gcc/ada/sem_ch12.adb')
| -rw-r--r-- | gcc/ada/sem_ch12.adb | 6 |
1 files changed, 2 insertions, 4 deletions
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)); |