diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-26 07:37:49 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-26 07:37:49 +0000 |
| commit | 9b6ead66e2a76606ce6db86c51255031a0ed3af5 (patch) | |
| tree | 9d1f0e5b1c9f80ad8a1def0a2041c72ffa1a6555 /gcc/ada/par-ch5.adb | |
| parent | 2f9b002b3385c121f006d8a5c2663328d051fcc9 (diff) | |
| download | gcc-9b6ead66e2a76606ce6db86c51255031a0ed3af5.tar.gz | |
2008-03-26 Robert Dewar <dewar@adacore.com>
* par.adb (Check_No_Right_Paren): Removed no longer used
* par-ch10.adb (N_Pragma): Chars field removed, use Chars
(Pragma_Identifier (.. instead.
* par-ch10.adb (P_Subunit): Improvement in error recovery and message
* par-tchk.adb, par-ch5.adb, par-ch6.adb, par-ch3.adb,
par-ch4.adb: Minor improvements in error recovery and messages.
* erroutc.adb (Test_Style_Warning_Serious_Msg): Treat style msgs as
non-serious
* par-ch9.adb: Minor improvements in error recovery and messages
(P_Protected): Better error recovery for "protected type x;"
* par-util.adb: Minor improvements in error recovery and messages
(Check_No_Right_Paren): Removed no longer used
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@133557 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/par-ch5.adb')
| -rw-r--r-- | gcc/ada/par-ch5.adb | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/gcc/ada/par-ch5.adb b/gcc/ada/par-ch5.adb index 577a6c0d93b..a2318406a7e 100644 --- a/gcc/ada/par-ch5.adb +++ b/gcc/ada/par-ch5.adb @@ -203,10 +203,7 @@ package body Ch5 is Statement_Required := SS_Flags.Sreq; loop - while Token = Tok_Semicolon loop - Error_Msg_SC ("unexpected semicolon ignored"); - Scan; -- past junk semicolon - end loop; + Ignore (Tok_Semicolon); begin if Style_Check then @@ -565,10 +562,7 @@ package body Ch5 is -- Skip junk right parens in this context - while Token = Tok_Right_Paren loop - Error_Msg_SC ("extra right paren"); - Scan; -- past ) - end loop; + Ignore (Tok_Right_Paren); -- Check context following call @@ -2200,7 +2194,7 @@ package body Ch5 is -- What we are interested in is whether it was a case of a bad IS. if Scope.Table (Scope.Last + 1).Etyp = E_Bad_Is then - Error_Msg ("IS should be "";""", Scope.Table (Scope.Last + 1).S_Is); + Error_Msg ("|IS should be "";""", Scope.Table (Scope.Last + 1).S_Is); Set_Bad_Is_Detected (Parent, True); end if; @@ -2235,7 +2229,7 @@ package body Ch5 is if Token = Tok_And or else Token = Tok_Or then Error_Msg_SC ("unexpected logical operator"); - Scan; + Scan; -- past logical operator if (Prev_Token = Tok_And and then Token = Tok_Then) or else |