diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-07 13:26:02 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-07 13:26:02 +0000 |
| commit | 28e9312590241085c4c9c616e2d59d118a216cd1 (patch) | |
| tree | 6befc7286be463c0edb384e01b62a6c535d677de /gcc/ada/par-ch5.adb | |
| parent | a6a5aae337314592759d3b5335ebb90246a00965 (diff) | |
| download | gcc-28e9312590241085c4c9c616e2d59d118a216cd1.tar.gz | |
2010-10-07 Robert Dewar <dewar@adacore.com>
* sem_prag.adb (Analyze_Attribute_Definition_Clause, case
Component_Size): Complete previous change.
2010-10-07 Vincent Celier <celier@adacore.com>
* scng.adb (Scan): Call Accumulate_Token_Checksum for Tok_Identifier,
even for keywords, to avoid having the checksum to depend on the Ada
version.
2010-10-07 Gary Dismukes <dismukes@adacore.com>
* sem_aggr.adb, sem_ch12.adb, sem_ch6.adb, par-ch5.adb,
exp_ch3.adb: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165106 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/par-ch5.adb')
| -rw-r--r-- | gcc/ada/par-ch5.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/par-ch5.adb b/gcc/ada/par-ch5.adb index f18197e0c13..04e1005e593 100644 --- a/gcc/ada/par-ch5.adb +++ b/gcc/ada/par-ch5.adb @@ -84,7 +84,7 @@ package body Ch5 is --------------------------------- -- SEQUENCE_OF_STATEMENTS ::= STATEMENT {STATEMENT} {LABEL} - -- Note: the final label is an Ada2012 addition. + -- Note: the final label is an Ada 2012 addition. -- STATEMENT ::= -- {LABEL} SIMPLE_STATEMENT | {LABEL} COMPOUND_STATEMENT @@ -150,12 +150,12 @@ package body Ch5 is -- is required. It is initialized from the Sreq flag, and modified as -- statements are scanned (a statement turns it off, and a label turns -- it back on again since a statement must follow a label). - -- Note : this final requirement is lifted in Ada2012. + -- Note : this final requirement is lifted in Ada 2012. Statement_Seen : Boolean; - -- In Ada2012 a label can end a sequence of statements, but the sequence - -- cannot contain only labels. This flag is set whenever a label is - -- encountered, to enforce this rule at the end of a sequence. + -- In Ada 2012, a label can end a sequence of statements, but the + -- sequence cannot contain only labels. This flag is set whenever a + -- label is encountered, to enforce this rule at the end of a sequence. Declaration_Found : Boolean := False; -- This flag is set True if a declaration is encountered, so that the @@ -773,7 +773,7 @@ package body Ch5 is Statement_Required := False; -- Label starting with << which must precede real statement - -- Note: in Ada2012, the label may end the sequence. + -- Note: in Ada 2012, the label may end the sequence. when Tok_Less_Less => if Present (Last (Statement_List)) |