diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-08-01 09:57:04 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-08-01 09:57:04 +0000 |
| commit | b23d813cab02e49f8145577771a7bcb5ea50e733 (patch) | |
| tree | d10a18c9ffde695836bbb4f6aea82a4ae8cd0a9a /gcc/ada/layout.adb | |
| parent | 3897a1249bdc60a3c22e76a9b96242eb3ccdebe1 (diff) | |
| download | gcc-b23d813cab02e49f8145577771a7bcb5ea50e733.tar.gz | |
2014-08-01 Robert Dewar <dewar@adacore.com>
* sem_aggr.adb, exp_atag.adb, layout.adb, nlists.adb, nlists.ads,
exp_attr.adb, exp_ch9.adb, par-ch12.adb, exp_aggr.adb,
exp_ch3.adb: Minor reformatting & code reorganization.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@213439 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/layout.adb')
| -rw-r--r-- | gcc/ada/layout.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/ada/layout.adb b/gcc/ada/layout.adb index 2692c8bb2b3..7721eefdd9d 100644 --- a/gcc/ada/layout.adb +++ b/gcc/ada/layout.adb @@ -2195,13 +2195,12 @@ package body Layout is D_List := New_List; D_Entity := First_Discriminant (E); while Present (D_Entity) loop - Append ( + Append_To (D_List, Make_Selected_Component (Loc, Prefix => Make_Identifier (Loc, Vname), Selector_Name => - New_Occurrence_Of (D_Entity, Loc)), - D_List); + New_Occurrence_Of (D_Entity, Loc))); D_Entity := Next_Discriminant (D_Entity); end loop; |