diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-20 15:05:53 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-20 15:05:53 +0200 |
| commit | e34ca162e700cb23aa7a247b394bfbf17135498b (patch) | |
| tree | 4c2aff5aa77d2398eadd8e5d221c3a6d9885b3a1 /gcc/ada/sem_ch8.adb | |
| parent | ee9aa7b6637c3254a12f5887d9ca2b425543b5a0 (diff) | |
| download | gcc-e34ca162e700cb23aa7a247b394bfbf17135498b.zip gcc-e34ca162e700cb23aa7a247b394bfbf17135498b.tar.gz gcc-e34ca162e700cb23aa7a247b394bfbf17135498b.tar.bz2 | |
[multiple changes]
2009-04-20 Pascal Obry <obry@adacore.com>
* a-direct.adb (To_Lower_If_Case_Insensitive): Removed.
Remove all calls to To_Lower_If_Case_Insensitive to preserve
the pathname original casing.
2009-04-20 Robert Dewar <dewar@adacore.com>
* g-trasym.adb: Minor reformatting
* s-os_lib.adb: Minor reformatting
* sem.adb: Minor reformatting
Minor code reorganization
* sem_ch3.adb: Minor reformatting
* sem_ch4.adb: Minor reformatting
* sem_ch8.adb: Minor reformatting
* sem_type.adb: Minor reformatting
From-SVN: r146412
Diffstat (limited to 'gcc/ada/sem_ch8.adb')
| -rw-r--r-- | gcc/ada/sem_ch8.adb | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index 88eed1d..097da0c 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -788,7 +788,7 @@ package body Sem_Ch8 is I : Interp_Index; It : Interp; Typ : Entity_Id := Empty; - Seen : Boolean := False; + Seen : Boolean := False; begin Get_First_Interp (Nam, I, It); @@ -799,8 +799,9 @@ package body Sem_Ch8 is if Ekind (It.Typ) = Ekind (T) then if Ekind (T) = E_Anonymous_Access_Subprogram_Type - and then Type_Conformant - (Designated_Type (T), Designated_Type (It.Typ)) + and then + Type_Conformant + (Designated_Type (T), Designated_Type (It.Typ)) then if not Seen then Seen := True; @@ -810,8 +811,8 @@ package body Sem_Ch8 is end if; elsif Ekind (T) = E_Anonymous_Access_Type - and then Covers - (Designated_Type (T), Designated_Type (It.Typ)) + and then + Covers (Designated_Type (T), Designated_Type (It.Typ)) then if not Seen then Seen := True; |