diff options
| author | Robert Dewar <dewar@adacore.com> | 2012-11-06 10:45:56 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-11-06 11:45:56 +0100 |
| commit | 97ce3a148a0c13f7ec36584e70f5a2e952b63a32 (patch) | |
| tree | 3a1a533fefbde97f9df0bf57d5bfca920075618c /gcc/ada | |
| parent | ff97910daf84acf7f3073b6b53660efcad9e6480 (diff) | |
| download | gcc-97ce3a148a0c13f7ec36584e70f5a2e952b63a32.zip gcc-97ce3a148a0c13f7ec36584e70f5a2e952b63a32.tar.gz gcc-97ce3a148a0c13f7ec36584e70f5a2e952b63a32.tar.bz2 | |
exp_attr.adb, [...]: Minor reformatting.
2012-11-06 Robert Dewar <dewar@adacore.com>
* exp_attr.adb, sem_attr.adb: Minor reformatting.
From-SVN: r193230
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/exp_attr.adb | 3 | ||||
| -rw-r--r-- | gcc/ada/sem_attr.adb | 2 |
3 files changed, 9 insertions, 0 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 7493c6d..d2ad541 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2012-11-06 Robert Dewar <dewar@adacore.com> + + * exp_attr.adb, sem_attr.adb: Minor reformatting. + 2012-11-06 Gary Dismukes <dismukes@adacore.com> * exp_attr.adb (Expand_N_Attribute_Reference): Apply a predicate diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index d94ae88..dcaac0c 100644 --- a/gcc/ada/exp_attr.adb +++ b/gcc/ada/exp_attr.adb @@ -5627,6 +5627,9 @@ package body Exp_Attr is -- function, then issue a warning that this will cause infinite -- recursion. + -- Do we have to issue these warnings in the expander rather + -- than during analysis (means they are skipped in -gnatc???). + if Current_Scope = Pred_Func then Error_Msg_N ("attribute Valid requires a predicate check?", N); diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index 223f387..7ed94b4 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -7235,6 +7235,8 @@ package body Sem_Attr is -- Loop_Entry -- ---------------- + -- This null processing requires an explanatory comment??? + when Attribute_Loop_Entry => null; |