diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-03 12:42:00 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-03 12:42:00 +0200 |
| commit | 98c99a5a376eb0b8b601fc02dec9eeacf5086196 (patch) | |
| tree | d1f32c8f9533e67c4ad8467155a274f5e8b42674 /gcc/ada/exp_dist.adb | |
| parent | 686d09844fd59ffdb2d49c1c5da0a46594d06778 (diff) | |
| download | gcc-98c99a5a376eb0b8b601fc02dec9eeacf5086196.tar.gz | |
[multiple changes]
2011-08-03 Thomas Quinot <quinot@adacore.com>
* exp_dist.adb: Minor reformatting.
2011-08-03 Arnaud Charlet <charlet@adacore.com>
* s-taprop-irix.adb, s-taprop-hpux-dce.adb, s-taprop-vms.adb
(ATCB_Key): Removed, not always used.
2011-08-03 Emmanuel Briot <briot@adacore.com>
* gnatcmd.adb, make.adb, prj.adb, prj.ads, makeutl.adb, makeutl.ads,
clean.adb, prj-conf.adb, prj-env.adb, prj-env.ads (Makeutl): remove
most remaining global variables.
From-SVN: r177263
Diffstat (limited to 'gcc/ada/exp_dist.adb')
| -rw-r--r-- | gcc/ada/exp_dist.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/exp_dist.adb b/gcc/ada/exp_dist.adb index 0b25f1a8c0f..60c24685337 100644 --- a/gcc/ada/exp_dist.adb +++ b/gcc/ada/exp_dist.adb @@ -6556,7 +6556,7 @@ package body Exp_Dist is Make_Aggregate (Loc, Component_Associations => New_List ( Make_Component_Association (Loc, - Choices => New_List (Make_Identifier (Loc, Name_Ras)), + Choices => New_List (Make_Identifier (Loc, Name_Ras)), Expression => PolyORB_Support.Helpers.Build_From_Any_Call ( Underlying_RACW_Type (RAS_Type), @@ -9054,8 +9054,8 @@ package body Exp_Dist is if Nkind (Datum) /= N_Attribute_Reference then -- We ignore the value of the length of each - -- dimension, since the target array has already - -- been constrained anyway. + -- dimension, since the target array has already been + -- constrained anyway. if Etype (Datum) /= RTE (RE_Any) then Set_Expression (Assignment, |