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_ch4.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_ch4.adb')
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index 5717f9e..361d854 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -1420,7 +1420,7 @@ package body Exp_Ch4 is function Component_Equality (Typ : Entity_Id) return Node_Id; -- Create one statement to compare corresponding components, designated - -- by a full set of indices. + -- by a full set of indexes. function Get_Arg_Type (N : Node_Id) return Entity_Id; -- Given one of the arguments, computes the appropriate type to be used @@ -1442,7 +1442,7 @@ package body Exp_Ch4 is -- end loop; -- end; -- - -- If both indices are constrained and identical, the procedure + -- If both indexes are constrained and identical, the procedure -- returns a simpler loop: -- -- for An in A'Range (N) loop @@ -1616,7 +1616,7 @@ package body Exp_Ch4 is if Need_Separate_Indexes then - -- Generate guard for loop, followed by increments of indices + -- Generate guard for loop, followed by increments of indexes Append_To (Stm_List, Make_Exit_Statement (Loc, |