From 6f99dcec636ac8bd0aec5ff9eec9cc6627d4889e Mon Sep 17 00:00:00 2001 From: Hristian Kirtchev Date: Fri, 23 Oct 2015 12:55:06 +0000 Subject: [PATCH] sem_ch12.adb, [...]: Minor reformatting. 2015-10-23 Hristian Kirtchev * sem_ch12.adb, exp_ch6.adb: Minor reformatting. From-SVN: r229251 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/exp_ch6.adb | 2 +- gcc/ada/sem_ch12.adb | 14 +++++++------- 3 files changed, 12 insertions(+), 8 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index eab0d4cf872..941ce252c76 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2015-10-23 Hristian Kirtchev + + * sem_ch12.adb, exp_ch6.adb: Minor reformatting. + 2015-10-23 Gary Dismukes * exp_ch6.adb: Minor reformatting. diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index 5df60377ea0..05828b2fe07 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -9598,7 +9598,7 @@ package body Exp_Ch6 is begin Actuals := Parameter_Associations (N); - -- Original function may have been parameterless + -- The original function may lack parameters if No (Actuals) then Actuals := New_List; diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index e7d279ae7aa..60bd94c1b3c 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -6151,17 +6151,17 @@ package body Sem_Ch12 is else Formal_Decl := Parent (Associated_Formal_Package (E)); - -- Nothing to check if the formal has a box or an - -- others_clause (necessarily with a box). + -- Nothing to check if the formal has a box or an others_clause + -- (necessarily with a box). if Box_Present (Formal_Decl) then null; elsif Nkind (First (Generic_Associations (Formal_Decl))) = - N_Others_Choice + N_Others_Choice then - -- The internal validating package was generated but - -- formal and instance are known to be compatible.. + -- The internal validating package was generated but formal + -- and instance are known to be compatible. Formal_P := Next_Entity (E); Remove (Unit_Declaration_Node (Formal_P)); @@ -6172,8 +6172,8 @@ package body Sem_Ch12 is -- After checking, remove the internal validating package. -- It is only needed for semantic checks, and as it may - -- contain generic formal declarations it should not - -- reach gigi. + -- contain generic formal declarations it should not reach + -- gigi. Remove (Unit_Declaration_Node (Formal_P)); end if; -- 2.30.2