diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-18 13:40:56 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-18 13:40:56 +0000 |
| commit | db94ef072e8f66fd44df86b55401a7ec4533e4b0 (patch) | |
| tree | c51a871836e4f83113c64b647c41c9a06dfe05f9 /gcc/ada/sem_cat.adb | |
| parent | 552f77d2018d572d894794cc7540baa5606e3e29 (diff) | |
| download | gcc-db94ef072e8f66fd44df86b55401a7ec4533e4b0.tar.gz | |
2010-06-18 Robert Dewar <dewar@adacore.com>
* make.adb, sem_cat.adb: Minor reformatting.
* sem_eval.adb: Fix typos.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@160991 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_cat.adb')
| -rw-r--r-- | gcc/ada/sem_cat.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/sem_cat.adb b/gcc/ada/sem_cat.adb index 1cde64f474b..1f4ed1069f6 100644 --- a/gcc/ada/sem_cat.adb +++ b/gcc/ada/sem_cat.adb @@ -1079,8 +1079,7 @@ package body Sem_Cat is -- implicit call, and must be treated as such. if Present (E) - and then - (Comes_From_Source (E) or else Nkind (E) /= N_Aggregate) + and then (Comes_From_Source (E) or else Nkind (E) /= N_Aggregate) then null; @@ -1240,8 +1239,8 @@ package body Sem_Cat is PEE := Parent (EE); if Nkind (PEE) = N_Full_Type_Declaration - and then not Static_Discriminant_Expr - (Discriminant_Specifications (PEE)) + and then not Static_Discriminant_Expr + (Discriminant_Specifications (PEE)) then Error_Msg_N ("non-static discriminant in preelaborated unit", |