diff options
| -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 |