diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-09-09 22:55:36 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-10-26 04:59:02 -0400 |
| commit | 5d2041a0c750a850129bc61f8000a6f4883fd295 (patch) | |
| tree | 1b9091cb45e1cbdd45ab31c80bff23620b8b5993 /gcc/ada/par-ch4.adb | |
| parent | aa32e8f4665808fec94a23b312b34747481f04b4 (diff) | |
| download | gcc-5d2041a0c750a850129bc61f8000a6f4883fd295.zip gcc-5d2041a0c750a850129bc61f8000a6f4883fd295.tar.gz gcc-5d2041a0c750a850129bc61f8000a6f4883fd295.tar.bz2 | |
[Ada] Fix interference between iterated element-and-component association
gcc/ada/
* par-ch4.adb (P_Iterated_Component_Association): Move code for
iterated_element_association to
Build_Iterated_Element_Association.
Diffstat (limited to 'gcc/ada/par-ch4.adb')
| -rw-r--r-- | gcc/ada/par-ch4.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/par-ch4.adb b/gcc/ada/par-ch4.adb index df43842..a146902 100644 --- a/gcc/ada/par-ch4.adb +++ b/gcc/ada/par-ch4.adb @@ -3438,6 +3438,12 @@ package body Ch4 is procedure Build_Iterated_Element_Association is begin + -- Build loop_parameter_specification + + Loop_Spec := + New_Node (N_Loop_Parameter_Specification, Prev_Token_Ptr); + Set_Defining_Identifier (Loop_Spec, Id); + Choice := First (Discrete_Choices (Assoc_Node)); Assoc_Node := New_Node (N_Iterated_Element_Association, Prev_Token_Ptr); @@ -3488,12 +3494,6 @@ package body Ch4 is Filter := P_Condition; end if; - -- Build loop_parameter_specification - - Loop_Spec := - New_Node (N_Loop_Parameter_Specification, Prev_Token_Ptr); - Set_Defining_Identifier (Loop_Spec, Id); - if Token = Tok_Use then -- Ada_2020 Key-expression is present, rewrite node as an |