diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-12 15:19:15 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-12 15:19:15 +0200 |
| commit | 489c6e198e9e78f635878bdec992ce4d9fa807a2 (patch) | |
| tree | dee6613608262bd3a26f31a89d7813d8d30eabc4 /gcc/ada/sem_elab.adb | |
| parent | a7e68e7fa76aa33eab48a30186abcb4d3b291322 (diff) | |
| download | gcc-489c6e198e9e78f635878bdec992ce4d9fa807a2.zip gcc-489c6e198e9e78f635878bdec992ce4d9fa807a2.tar.gz gcc-489c6e198e9e78f635878bdec992ce4d9fa807a2.tar.bz2 | |
[multiple changes]
2013-04-12 Robert Dewar <dewar@adacore.com>
* checks.adb, sem_elab.adb, repinfo.adb, sem_ch4.adb, restrict.adb,
restrict.ads: Minor reformatting.
2013-04-12 Ed Schonberg <schonberg@adacore.com>
* lib-xref.adb: Retrieve original name of classwide type if any.
2013-04-12 Thomas Quinot <quinot@adacore.com>
* exp_ch11.ads: Minor reformatting.
From-SVN: r197910
Diffstat (limited to 'gcc/ada/sem_elab.adb')
| -rw-r--r-- | gcc/ada/sem_elab.adb | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/gcc/ada/sem_elab.adb b/gcc/ada/sem_elab.adb index 710983f..fe640d5 100644 --- a/gcc/ada/sem_elab.adb +++ b/gcc/ada/sem_elab.adb @@ -3339,14 +3339,11 @@ package body Sem_Elab is if Nkind (Item) = N_Pragma and then Pragma_Name (Item) = Name_Elaborate_All then - -- Return if some previous error on the pragma itself - -- The pragma may be unanalyzed, because of a previous error, - -- or if it is the context of a subunit, inherited by its - -- parent. + -- Return if some previous error on the pragma itself. The + -- pragma may be unanalyzed, because of a previous error, or + -- if it is the context of a subunit, inherited by its parent. - if Error_Posted (Item) - or else not Analyzed (Item) - then + if Error_Posted (Item) or else not Analyzed (Item) then return; end if; |