From 89cc7147fbacb5e850051c7996fe510d4379253d Mon Sep 17 00:00:00 2001 From: charlet Date: Mon, 29 Aug 2011 10:25:10 +0000 Subject: 2011-08-29 Ed Schonberg * sem_ch13.adb: Additional semantic checks for aspects involved in iterators. 2011-08-29 Matthew Heaney * 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 * par-endh.adb: Minor reformatting. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178190 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/par-endh.adb | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) (limited to 'gcc/ada/par-endh.adb') 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)) -- cgit v1.2.1