diff options
author | Piotr Trojanek <trojanek@adacore.com> | 2020-09-09 21:45:39 +0200 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-10-26 04:58:54 -0400 |
commit | acdd1bd4c6c17ba576891543e716eb040410d929 (patch) | |
tree | 0a6412426930398e71341deffdc1b9606bf2b555 /gcc/ada | |
parent | e3710c6509fc8a914f94b5cbf50531e773229c9a (diff) | |
download | gcc-acdd1bd4c6c17ba576891543e716eb040410d929.zip gcc-acdd1bd4c6c17ba576891543e716eb040410d929.tar.gz gcc-acdd1bd4c6c17ba576891543e716eb040410d929.tar.bz2 |
[Ada] Fix typos in comments about parsing iterated_component_association
gcc/ada/
* par-ch4.adb (P_Iterated_Component_Association): Fix typos in
comments.
Diffstat (limited to 'gcc/ada')
-rw-r--r-- | gcc/ada/par-ch4.adb | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/ada/par-ch4.adb b/gcc/ada/par-ch4.adb index 925da76..df43842 100644 --- a/gcc/ada/par-ch4.adb +++ b/gcc/ada/par-ch4.adb @@ -3469,26 +3469,26 @@ package body Ch4 is -- In addition, if "use" is present after the specification, -- this is an Iterated_Element_Association that carries a -- key_expression, and we generate the appropriate node. - -- Finally, the Iterated_Element form is reserved for contwiner + -- Finally, the Iterated_Element form is reserved for container -- aggregates, and is illegal in array aggregates. Id := P_Defining_Identifier; Assoc_Node := New_Node (N_Iterated_Component_Association, Prev_Token_Ptr); - if Token = Tok_In then + if Token = Tok_In then Set_Defining_Identifier (Assoc_Node, Id); T_In; Set_Discrete_Choices (Assoc_Node, P_Discrete_Choice_List); - -- The iterator may include a filter. + -- The iterator may include a filter if Token = Tok_When then Scan; -- past WHEN Filter := P_Condition; end if; - -- Build loop_parameter specification. + -- Build loop_parameter_specification Loop_Spec := New_Node (N_Loop_Parameter_Specification, Prev_Token_Ptr); @@ -3497,15 +3497,15 @@ package body Ch4 is if Token = Tok_Use then -- Ada_2020 Key-expression is present, rewrite node as an - -- iterated_Element_Awwoiation. + -- Iterated_Element_Association. Scan; -- past USE Build_Iterated_Element_Association; Set_Key_Expression (Assoc_Node, P_Expression); elsif Present (Filter) then - -- A loop_Parameter_Specification also indicates an Ada_2020 - -- conwtruct, in contrast with a subtype indication used in + -- A loop_parameter_specification also indicates an Ada_2020 + -- construct, in contrast with a subtype indication used in -- array aggregates. Build_Iterated_Element_Association; @@ -3525,7 +3525,7 @@ package body Ch4 is if Token = Tok_Use then Scan; -- past USE - -- This is an iterated_elenent_qssociation. + -- This is an iterated_element_association Assoc_Node := New_Node (N_Iterated_Element_Association, Prev_Token_Ptr); |