diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2015-10-23 12:55:06 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-10-23 14:55:06 +0200 |
| commit | 6f99dcec636ac8bd0aec5ff9eec9cc6627d4889e (patch) | |
| tree | fdb8d4b681c67ba511811f242afb3088304d52c3 | |
| parent | a1c09064183ef120c05fb6ded552029ca79dbff9 (diff) | |
| download | gcc-6f99dcec636ac8bd0aec5ff9eec9cc6627d4889e.zip gcc-6f99dcec636ac8bd0aec5ff9eec9cc6627d4889e.tar.gz gcc-6f99dcec636ac8bd0aec5ff9eec9cc6627d4889e.tar.bz2 | |
sem_ch12.adb, [...]: Minor reformatting.
2015-10-23 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch12.adb, exp_ch6.adb: Minor reformatting.
From-SVN: r229251
| -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 eab0d4c..941ce25 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 5df6037..05828b2 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 e7d279a..60bd94c 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; |