diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-12-20 14:56:21 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-12-20 14:56:21 +0100 |
| commit | b26f70a095903c480d39d986a3e729f97f1fa88d (patch) | |
| tree | ae5a1fe7fcfa157909b5cbfb6eeaeb0fc0a7fd54 /gcc/ada | |
| parent | 15954beb2b32750807397741eda32d81fcb66121 (diff) | |
| download | gcc-b26f70a095903c480d39d986a3e729f97f1fa88d.zip gcc-b26f70a095903c480d39d986a3e729f97f1fa88d.tar.gz gcc-b26f70a095903c480d39d986a3e729f97f1fa88d.tar.bz2 | |
Minor reformatting.
From-SVN: r182538
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/sem_ch13.adb | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index 8c7452f..dbfc56f 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -1868,9 +1868,9 @@ package body Sem_Ch13 is procedure Check_One_Function (Subp : Entity_Id) is Default_Element : constant Node_Id := - Find_Aspect - (Etype (First_Formal (Subp)), - Aspect_Iterator_Element); + Find_Aspect + (Etype (First_Formal (Subp)), + Aspect_Iterator_Element); begin if not Check_Primitive_Function (Subp) then @@ -1885,8 +1885,7 @@ package body Sem_Ch13 is if Present (Default_Element) then Analyze (Default_Element); if Is_Entity_Name (Default_Element) - and then - Covers (Entity (Default_Element), Etype (Subp)) + and then Covers (Entity (Default_Element), Etype (Subp)) then return; end if; @@ -1914,7 +1913,7 @@ package body Sem_Ch13 is else declare - I : Interp_Index; + I : Interp_Index; It : Interp; begin |