diff options
| author | Robert Dewar <dewar@adacore.com> | 2014-08-01 09:57:04 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-08-01 11:57:04 +0200 |
| commit | 37368818b9b039ebdb177c483b0d563e128952ba (patch) | |
| tree | d10a18c9ffde695836bbb4f6aea82a4ae8cd0a9a /gcc/ada/layout.adb | |
| parent | e08add8ea93dfa94541f2d20c0b56614ef0a2449 (diff) | |
| download | gcc-37368818b9b039ebdb177c483b0d563e128952ba.zip gcc-37368818b9b039ebdb177c483b0d563e128952ba.tar.gz gcc-37368818b9b039ebdb177c483b0d563e128952ba.tar.bz2 | |
sem_aggr.adb, [...]: Minor reformatting & code reorganization.
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.
From-SVN: r213439
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 2692c8b..7721eef 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; |