diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 10:25:10 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 10:25:10 +0000 |
| commit | 89cc7147fbacb5e850051c7996fe510d4379253d (patch) | |
| tree | 7231c914b20a6192d1398f725c6a779419140c9a /gcc/ada/par-endh.adb | |
| parent | 01f9c5cd4a1212826adc7a906db50bd93df8c8cd (diff) | |
| download | gcc-89cc7147fbacb5e850051c7996fe510d4379253d.tar.gz | |
2011-08-29 Ed Schonberg <schonberg@adacore.com>
* sem_ch13.adb: Additional semantic checks for aspects involved in
iterators.
2011-08-29 Matthew Heaney <heaney@adacore.com>
* a-comutr.ads, a-comutr.adb, a-cimutr.ads, a-cimutr.adb,
a-cbmutr.ads, a-cbmutr.adb (Find_In_Subtree): Remove superfluous
Container parameter.
(Ancestor_Find): ditto.
2011-08-29 Robert Dewar <dewar@adacore.com>
* par-endh.adb: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178190 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/par-endh.adb')
| -rw-r--r-- | gcc/ada/par-endh.adb | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/gcc/ada/par-endh.adb b/gcc/ada/par-endh.adb index 4ecc49d4167..3a2c9402e48 100644 --- a/gcc/ada/par-endh.adb +++ b/gcc/ada/par-endh.adb @@ -799,10 +799,10 @@ package body Endh is -- In the following test we protect the call to Comes_From_Source -- against lines containing previously reported syntax errors. - elsif (Etyp = E_Loop - or else Etyp = E_Name - or else Etyp = E_Suspicious_Is - or else Etyp = E_Bad_Is) + elsif (Etyp = E_Loop or else + Etyp = E_Name or else + Etyp = E_Suspicious_Is or else + Etyp = E_Bad_Is) and then Comes_From_Source (L) then return True; @@ -818,7 +818,6 @@ package body Endh is procedure Output_End_Deleted is begin - if End_Type = E_Loop then Error_Msg_SC ("no LOOP for this `END LOOP`!"); @@ -1042,9 +1041,9 @@ package body Endh is -- We also reserve an end with a name before the end of file if the -- name is the one we expect at the outer level. - if (Token = Tok_EOF - or else Token = Tok_With - or else Token = Tok_Separate) + if (Token = Tok_EOF or else + Token = Tok_With or else + Token = Tok_Separate) and then End_Type >= E_Name and then (not End_Labl_Present or else Same_Label (End_Labl, Scope.Table (1).Labl)) |