diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-13 10:12:11 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-13 10:12:11 +0200 |
| commit | cfb120b55dc31f9d6dc27a63747ec436fd6a80f2 (patch) | |
| tree | 56a3f2468cc8daed245bc41f9016ad9f88c5cbf4 /gcc/ada/par-ch4.adb | |
| parent | 01e17342864c6703b95bed379229fa92080a76e8 (diff) | |
| download | gcc-cfb120b55dc31f9d6dc27a63747ec436fd6a80f2.zip gcc-cfb120b55dc31f9d6dc27a63747ec436fd6a80f2.tar.gz gcc-cfb120b55dc31f9d6dc27a63747ec436fd6a80f2.tar.bz2 | |
[multiple changes]
2009-07-13 Robert Dewar <dewar@adacore.com>
* i-cobol.ads: Minor code fix (2**4 instead of 16 as modulus to avoid
warning).
* par-ch4.adb: Minor reformatting
2009-07-13 Ed Schonberg <schonberg@adacore.com>
* freeze.adb, freeze.ads, exp_aggr.adb: Rename Expand_Atomic_Aggregate
=> Is_Atomic_Aggregate
From-SVN: r149548
Diffstat (limited to 'gcc/ada/par-ch4.adb')
| -rw-r--r-- | gcc/ada/par-ch4.adb | 36 |
1 files changed, 16 insertions, 20 deletions
diff --git a/gcc/ada/par-ch4.adb b/gcc/ada/par-ch4.adb index 38eccb1..6bfc40a 100644 --- a/gcc/ada/par-ch4.adb +++ b/gcc/ada/par-ch4.adb @@ -857,7 +857,6 @@ package body Ch4 is exception when Error_Resync => return Error; - end P_Function_Name; -- This function parses a restricted form of Names which are either @@ -929,7 +928,6 @@ package body Ch4 is exception when Error_Resync => return Error; - end P_Qualified_Simple_Name; -- This procedure differs from P_Qualified_Simple_Name only in that it @@ -994,7 +992,6 @@ package body Ch4 is Set_Selector_Name (Selector_Node, Designator_Node); return Selector_Node; end if; - end P_Qualified_Simple_Name_Resync; ---------------------- @@ -2106,7 +2103,6 @@ package body Ch4 is Resync_Expression; Expr_Form := EF_Simple; return Error; - end P_Simple_Expression; ----------------------------------------------- @@ -2482,15 +2478,15 @@ package body Ch4 is function P_Relational_Operator return Node_Kind is Op_Kind : Node_Kind; Relop_Node : constant array (Token_Class_Relop) of Node_Kind := - (Tok_Less => N_Op_Lt, - Tok_Equal => N_Op_Eq, - Tok_Greater => N_Op_Gt, - Tok_Not_Equal => N_Op_Ne, - Tok_Greater_Equal => N_Op_Ge, - Tok_Less_Equal => N_Op_Le, - Tok_In => N_In, - Tok_Not => N_Not_In, - Tok_Box => N_Op_Ne); + (Tok_Less => N_Op_Lt, + Tok_Equal => N_Op_Eq, + Tok_Greater => N_Op_Gt, + Tok_Not_Equal => N_Op_Ne, + Tok_Greater_Equal => N_Op_Ge, + Tok_Less_Equal => N_Op_Le, + Tok_In => N_In, + Tok_Not => N_Not_In, + Tok_Box => N_Op_Ne); begin if Token = Tok_Box then @@ -2528,9 +2524,9 @@ package body Ch4 is function P_Binary_Adding_Operator return Node_Kind is Addop_Node : constant array (Token_Class_Binary_Addop) of Node_Kind := - (Tok_Ampersand => N_Op_Concat, - Tok_Minus => N_Op_Subtract, - Tok_Plus => N_Op_Add); + (Tok_Ampersand => N_Op_Concat, + Tok_Minus => N_Op_Subtract, + Tok_Plus => N_Op_Add); begin return Addop_Node (Token); end P_Binary_Adding_Operator; @@ -2551,8 +2547,8 @@ package body Ch4 is function P_Unary_Adding_Operator return Node_Kind is Addop_Node : constant array (Token_Class_Unary_Addop) of Node_Kind := - (Tok_Minus => N_Op_Minus, - Tok_Plus => N_Op_Plus); + (Tok_Minus => N_Op_Minus, + Tok_Plus => N_Op_Plus); begin return Addop_Node (Token); end P_Unary_Adding_Operator; @@ -2670,8 +2666,8 @@ package body Ch4 is Inside_Conditional_Expression := Inside_Conditional_Expression + 1; if Token = Tok_If and then not Extensions_Allowed then - Error_Msg_SC ("conditional expression is an Ada extension"); - Error_Msg_SC ("\use -gnatX switch to compile this unit"); + Error_Msg_SC ("|conditional expression is an Ada extension"); + Error_Msg_SC ("\|use -gnatX switch to compile this unit"); end if; Scan; -- past IF or ELSIF |