diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2018-05-30 08:56:18 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-05-30 08:56:18 +0000 |
| commit | f537fc00c7c21ad07b184aa056df733a4cb87c83 (patch) | |
| tree | d4fa45bb3c4db3faacf0f3298fa7bb2b081b5a90 /gcc/ada/sem_disp.adb | |
| parent | c0368be1a18a9ae007ed3f4ef0f2b1400c6b43f6 (diff) | |
| download | gcc-f537fc00c7c21ad07b184aa056df733a4cb87c83.zip gcc-f537fc00c7c21ad07b184aa056df733a4cb87c83.tar.gz gcc-f537fc00c7c21ad07b184aa056df733a4cb87c83.tar.bz2 | |
[Ada] Minor reformatting
2018-05-30 Hristian Kirtchev <kirtchev@adacore.com>
gcc/ada/
* exp_aggr.adb, exp_ch3.adb, exp_ch4.adb, exp_ch7.adb, exp_unst.adb,
exp_util.adb, exp_util.ads, libgnat/a-calcon.adb, libgnat/a-calcon.ads,
libgnat/s-os_lib.adb, repinfo.adb, sem_ch3.adb, sem_disp.adb,
sem_disp.ads, sem_util.adb: Minor reformatting.
From-SVN: r260923
Diffstat (limited to 'gcc/ada/sem_disp.adb')
| -rw-r--r-- | gcc/ada/sem_disp.adb | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/gcc/ada/sem_disp.adb b/gcc/ada/sem_disp.adb index 54c20b5..f135bba 100644 --- a/gcc/ada/sem_disp.adb +++ b/gcc/ada/sem_disp.adb @@ -2221,7 +2221,7 @@ package body Sem_Disp is -- table, but it would be awfully heavy, and there is no way that we -- could reasonably exceed this value. - N : Nat := 0; + N : Nat := 0; -- Number of entries in Result Parent_Op : Entity_Id; @@ -2246,7 +2246,7 @@ package body Sem_Disp is Result (N) := E; end Store_IS; - -- Start of processing for Inherited_Subprograms + -- Start of processing for Inherited_Subprograms begin pragma Assert (not (No_Interfaces and Interfaces_Only)); @@ -2258,7 +2258,6 @@ package body Sem_Disp is and then Is_Dispatching_Operation (S) and then Present (Find_DT (S)) then - -- Deal with direct inheritance if not Interfaces_Only then @@ -2266,10 +2265,8 @@ package body Sem_Disp is loop Parent_Op := Overridden_Operation (Parent_Op); exit when No (Parent_Op) - or else - (No_Interfaces - and then - Is_Interface (Find_DT (Parent_Op))); + or else (No_Interfaces + and then Is_Interface (Find_DT (Parent_Op))); if Is_Subprogram_Or_Generic_Subprogram (Parent_Op) then Store_IS (Parent_Op); |