diff options
author | Piotr Trojanek <trojanek@adacore.com> | 2021-12-21 15:33:56 +0100 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-01-07 16:24:14 +0000 |
commit | 8313d0ee55970c7a0fe16595345f53de9698ec95 (patch) | |
tree | dde224ad0c3ccbae59fe33ac0748de684b32be59 /gcc/ada | |
parent | d7b2fad2ec6652194aab0b9acfd41f187c4396d0 (diff) | |
download | gcc-8313d0ee55970c7a0fe16595345f53de9698ec95.zip gcc-8313d0ee55970c7a0fe16595345f53de9698ec95.tar.gz gcc-8313d0ee55970c7a0fe16595345f53de9698ec95.tar.bz2 |
[Ada] Fix style in expansion of multi-dimensional array aggregates
gcc/ada/
* exp_aggr.adb (Build_Array_Aggr_Code): Fix inconsistent style
in comments and code.
Diffstat (limited to 'gcc/ada')
-rw-r--r-- | gcc/ada/exp_aggr.adb | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb index 4dfe280..a46abff 100644 --- a/gcc/ada/exp_aggr.adb +++ b/gcc/ada/exp_aggr.adb @@ -1021,7 +1021,7 @@ package body Exp_Aggr is -- 2. If the aggregate contains positional elements we - -- (a) translate the positional elements in a series of assignments + -- (a) Translate the positional elements in a series of assignments -- (b) Generate a final loop to cover the others choice if any. -- Note that this final loop has to be a while loop since the case @@ -1032,7 +1032,7 @@ package body Exp_Aggr is -- cannot be handled by a for loop. Thus for the following - -- array (L .. H) := (.. positional elements.., others =>E); + -- array (L .. H) := (.. positional elements.., others => E); -- we always generate something like: @@ -2063,11 +2063,9 @@ package body Exp_Aggr is -- Construct "for L_J in Index_Base range L .. H" L_Iteration_Scheme := - Make_Iteration_Scheme - (Loc, + Make_Iteration_Scheme (Loc, Loop_Parameter_Specification => - Make_Loop_Parameter_Specification - (Loc, + Make_Loop_Parameter_Specification (Loc, Defining_Identifier => L_J, Discrete_Subtype_Definition => L_Range)); |