diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-10-23 12:55:06 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-10-23 12:55:06 +0000 |
commit | c90564bd6c68e83cd79342fa831bd8f8ea3a5c7c (patch) | |
tree | fdb8d4b681c67ba511811f242afb3088304d52c3 | |
parent | bfd2db200cb7ae92b585d7453bf232daf9abea7b (diff) | |
download | gcc-c90564bd6c68e83cd79342fa831bd8f8ea3a5c7c.tar.gz |
2015-10-23 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch12.adb, exp_ch6.adb: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@229251 138bc75d-0d04-0410-961f-82ee72b054a4
-rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
-rw-r--r-- | gcc/ada/exp_ch6.adb | 2 | ||||
-rw-r--r-- | 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 <kirtchev@adacore.com> + + * sem_ch12.adb, exp_ch6.adb: Minor reformatting. + 2015-10-23 Gary Dismukes <dismukes@adacore.com> * 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; |