diff options
| author | Robert Dewar <dewar@adacore.com> | 2010-10-21 10:14:06 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-21 12:14:06 +0200 |
| commit | 3b42c566b8801956047b98983b4c9962a949634d (patch) | |
| tree | 749378dc7fba4fc3238505b01cbf6786a46a0028 /gcc/ada/exp_dist.adb | |
| parent | deeb160439b8a02a5e00909ab29c25103a162d32 (diff) | |
| download | gcc-3b42c566b8801956047b98983b4c9962a949634d.zip gcc-3b42c566b8801956047b98983b4c9962a949634d.tar.gz gcc-3b42c566b8801956047b98983b4c9962a949634d.tar.bz2 | |
a-cgaaso.ads, [...]: Minor reformatting
2010-10-21 Robert Dewar <dewar@adacore.com>
* a-cgaaso.ads, a-tags.ads, exp_ch3.adb, exp_attr.adb, exp_ch4.adb,
exp_ch3.ads, exp_ch7.adb, exp_ch9.adb, exp_disp.adb, exp_disp.ads,
exp_dist.adb, exp_util.adb, layout.adb, lib-xref.adb, lib.ads,
prep.adb, prj-strt.adb, s-ststop.adb, s-taskin.ads, s-tataat.ads,
sem_aggr.adb, sem_attr.adb, sem_ch12.adb, sem_ch3.adb, sem_ch4.adb,
sem_ch4.ads, sem_ch5.adb, sem_res.adb, sem_util.adb, einfo.adb,
g-sothco.ads, make.adb: Minor reformatting
From-SVN: r165760
Diffstat (limited to 'gcc/ada/exp_dist.adb')
| -rw-r--r-- | gcc/ada/exp_dist.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/exp_dist.adb b/gcc/ada/exp_dist.adb index 84cba49..ea105f0 100644 --- a/gcc/ada/exp_dist.adb +++ b/gcc/ada/exp_dist.adb @@ -8207,7 +8207,7 @@ package body Exp_Dist is Arry : Entity_Id; -- For 'Range and Etype - Indices : List_Id; + Indexes : List_Id; -- For the construction of the innermost element expression with procedure Add_Process_Element @@ -8223,7 +8223,7 @@ package body Exp_Dist is Depth : Pos := 1); -- Build nested loop statements that iterate over the elements of an -- array Arry. The statement(s) built by Add_Process_Element are - -- executed for each element; Indices is the list of indices to be + -- executed for each element; Indexes is the list of indexes to be -- used in the construction of the indexed component that denotes the -- current element. Subprogram is the entity for the subprogram for -- which this iterator is generated. The generated statements are @@ -8992,7 +8992,7 @@ package body Exp_Dist is new Append_Array_Traversal ( Subprogram => Fnam, Arry => Res, - Indices => New_List, + Indexes => New_List, Add_Process_Element => FA_Ary_Add_Process_Element); Res_Subtype_Indication : Node_Id := @@ -9868,7 +9868,7 @@ package body Exp_Dist is new Append_Array_Traversal ( Subprogram => Fnam, Arry => Expr_Parameter, - Indices => New_List, + Indexes => New_List, Add_Process_Element => TA_Ary_Add_Process_Element); Index : Node_Id; @@ -10850,7 +10850,7 @@ package body Exp_Dist is Element_Expr : constant Node_Id := Make_Indexed_Component (Loc, New_Occurrence_Of (Arry, Loc), - Indices); + Indexes); begin Set_Etype (Element_Expr, Component_Type (Typ)); Add_Process_Element (Stmts, @@ -10862,7 +10862,7 @@ package body Exp_Dist is return; end if; - Append_To (Indices, + Append_To (Indexes, Make_Identifier (Loc, New_External_Name ('L', Depth))); if not Constrained or else Depth > 1 then |