diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-26 15:20:47 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-26 15:20:47 +0200 |
| commit | 7675ad4f6a9a8c6a1b1e75f9b31a669a874e19fe (patch) | |
| tree | fbb9f4947a251f0b47c2f6205c923acb6a40ad83 /gcc/ada/layout.adb | |
| parent | dc718e52b96bde01a6095f8319c3a0191bff65a3 (diff) | |
| download | gcc-7675ad4f6a9a8c6a1b1e75f9b31a669a874e19fe.zip gcc-7675ad4f6a9a8c6a1b1e75f9b31a669a874e19fe.tar.gz gcc-7675ad4f6a9a8c6a1b1e75f9b31a669a874e19fe.tar.bz2 | |
[multiple changes]
2010-10-26 Robert Dewar <dewar@adacore.com>
* exp_ch5.adb, exp_prag.adb, sem_ch3.adb, exp_atag.adb, layout.adb,
sem_dist.adb, exp_ch7.adb, exp_util.adb, exp_attr.adb, exp_ch9.adb,
sem_ch10.adb, checks.adb, sem_prag.adb, par-endh.adb, sem_ch12.adb,
exp_smem.adb, sem_attr.adb, exp_ch4.adb, exp_ch6.adb, exp_ch8.adb,
sem_ch6.adb, exp_disp.adb, exp_aggr.adb, exp_dist.adb, sem_ch13.adb,
par-ch3.adb, par-ch5.adb, exp_strm.adb, exp_ch3.adb: Minor reformatting
* opt.ads: Minor comment fix.
2010-10-26 Vincent Celier <celier@adacore.com>
* gnat_ugn.texi: Document option -s for gnatlink.
From-SVN: r165963
Diffstat (limited to 'gcc/ada/layout.adb')
| -rw-r--r-- | gcc/ada/layout.adb | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/gcc/ada/layout.adb b/gcc/ada/layout.adb index eb0616f..0c4db36 100644 --- a/gcc/ada/layout.adb +++ b/gcc/ada/layout.adb @@ -620,7 +620,7 @@ package body Layout is Name => New_Occurrence_Of (Ent, Loc), Parameter_Associations => New_List ( Make_Selected_Component (Loc, - Prefix => Make_Identifier (Loc, Chars => Vname), + Prefix => Make_Identifier (Loc, Vname), Selector_Name => New_Occurrence_Of (Comp, Loc)))); else @@ -628,7 +628,7 @@ package body Layout is Make_Function_Call (Loc, Name => New_Occurrence_Of (Ent, Loc), Parameter_Associations => New_List ( - Make_Identifier (Loc, Chars => Vname))); + Make_Identifier (Loc, Vname))); end if; else @@ -988,7 +988,7 @@ package body Layout is N := Make_Selected_Component (Loc, - Prefix => Make_Identifier (Loc, Chars => Vname), + Prefix => Make_Identifier (Loc, Vname), Selector_Name => New_Occurrence_Of (Entity (N), Loc)); -- Set the Etype attributes of the selected name and its prefix. @@ -1990,7 +1990,7 @@ package body Layout is Make_Function_Call (Loc, Name => New_Occurrence_Of (RMS_Ent, Loc), Parameter_Associations => New_List ( - Make_Identifier (Loc, Chars => Vname))); + Make_Identifier (Loc, Vname))); -- If the size is represented by a constant, then the -- expression we want is a reference to this constant @@ -2104,7 +2104,7 @@ package body Layout is Discrim := Make_Selected_Component (Loc, Prefix => - Make_Identifier (Loc, Chars => Vname), + Make_Identifier (Loc, Vname), Selector_Name => New_Occurrence_Of (Entity (Name (Vpart)), Loc)); @@ -2130,10 +2130,9 @@ package body Layout is Append ( Make_Selected_Component (Loc, Prefix => - Make_Identifier (Loc, Chars => Vname), + Make_Identifier (Loc, Vname), Selector_Name => - New_Occurrence_Of - (D_Entity, Loc)), + New_Occurrence_Of (D_Entity, Loc)), D_List); D_Entity := Next_Discriminant (D_Entity); |