diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-12 11:42:31 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-12 11:42:31 +0200 |
| commit | 92cbddaa2ae10e2cb208067b0fc2871ab81a62bc (patch) | |
| tree | 99e4763094e799e398df88b7a5f9765b442ca1c8 /gcc/ada/par-ch12.adb | |
| parent | 718deaf1af8c923d15f417fd3b49ba909c5f26eb (diff) | |
| download | gcc-92cbddaa2ae10e2cb208067b0fc2871ab81a62bc.zip gcc-92cbddaa2ae10e2cb208067b0fc2871ab81a62bc.tar.gz gcc-92cbddaa2ae10e2cb208067b0fc2871ab81a62bc.tar.bz2 | |
[multiple changes]
2010-10-12 Robert Dewar <dewar@adacore.com>
* par-endh.adb (Check_End): Don't swallow semicolon or aspects after
END RECORD.
* sem_attr.adb (Eval_Attribute): Code clean up.
2010-10-12 Robert Dewar <dewar@adacore.com>
* par-ch12.adb (P_Formal_Private_Type_Definition): Improve error
messages and recovery for case of out of order Abstract/Tagged/Private
keywords.
* par-ch3.adb (P_Type_Declaration): Improve error messages and recovery
for case of out of order Abstract/Tagged/Private keywords.
2010-10-12 Ed Schonberg <schonberg@adacore.com>
* inline.adb (Analyze_Inlined_Bodies): Restrict previous change to case
where child unit is main unit of compilation.
From-SVN: r165354
Diffstat (limited to 'gcc/ada/par-ch12.adb')
| -rw-r--r-- | gcc/ada/par-ch12.adb | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/ada/par-ch12.adb b/gcc/ada/par-ch12.adb index 81f5e25..20dfde9 100644 --- a/gcc/ada/par-ch12.adb +++ b/gcc/ada/par-ch12.adb @@ -834,6 +834,20 @@ package body Ch12 is Set_Sloc (Def_Node, Token_Ptr); T_Private; + + if Token = Tok_Tagged then -- CODEFIX + Error_Msg_SC ("TAGGED must come before PRIVATE"); + Scan; -- past TAGGED + + elsif Token = Tok_Abstract then -- CODEFIX + Error_Msg_SC ("`ABSTRACT TAGGED` must come before PRIVATE"); + Scan; -- past ABSTRACT + + if Token = Tok_Tagged then + Scan; -- past TAGGED + end if; + end if; + return Def_Node; end P_Formal_Private_Type_Definition; |