From f537fc00c7c21ad07b184aa056df733a4cb87c83 Mon Sep 17 00:00:00 2001 From: Hristian Kirtchev Date: Wed, 30 May 2018 08:56:18 +0000 Subject: [Ada] Minor reformatting 2018-05-30 Hristian Kirtchev 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 --- gcc/ada/sem_disp.adb | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) (limited to 'gcc/ada/sem_disp.adb') 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); -- cgit v1.1