diff options
| author | Robert Dewar <dewar@adacore.com> | 2014-07-18 09:48:47 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-18 11:48:47 +0200 |
| commit | 8ca597af97cb20a9a0b98358880bd3a488d49cc2 (patch) | |
| tree | f3806f298062cc781b6b88cd15f5972394056d65 /gcc/ada/layout.adb | |
| parent | 5aa0548d689468fde141ada9f33dc823e2de5a72 (diff) | |
| download | gcc-8ca597af97cb20a9a0b98358880bd3a488d49cc2.zip gcc-8ca597af97cb20a9a0b98358880bd3a488d49cc2.tar.gz gcc-8ca597af97cb20a9a0b98358880bd3a488d49cc2.tar.bz2 | |
sem_aggr.adb, [...]: Change name Packed_Array_Type to Packed_Array_Impl_Type.
2014-07-18 Robert Dewar <dewar@adacore.com>
* sem_aggr.adb, exp_ch5.adb, sem_ch3.adb, layout.adb, sem_type.adb,
exp_util.adb, exp_attr.adb, einfo.adb, einfo.ads, exp_pakd.adb,
checks.adb, exp_pakd.ads, freeze.adb, sem_util.adb, exp_dbug.adb,
exp_dbug.ads, exp_ch4.adb, sem_ch8.adb, exp_aggr.adb, sem_eval.adb,
sem_ch13.adb: Change name Packed_Array_Type to Packed_Array_Impl_Type.
From-SVN: r212797
Diffstat (limited to 'gcc/ada/layout.adb')
| -rw-r--r-- | gcc/ada/layout.adb | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/gcc/ada/layout.adb b/gcc/ada/layout.adb index 52c981e..d9108c9 100644 --- a/gcc/ada/layout.adb +++ b/gcc/ada/layout.adb @@ -1724,7 +1724,7 @@ package body Layout is elsif Is_Array_Type (Ctyp) and then Is_Bit_Packed_Array (Ctyp) - and then Is_Modular_Integer_Type (Packed_Array_Type (Ctyp)) + and then Is_Modular_Integer_Type (Packed_Array_Impl_Type (Ctyp)) then Forc := False; @@ -2624,9 +2624,11 @@ package body Layout is -- array type if a packed array type has been created and the fields -- are not currently set. - if Is_Array_Type (E) and then Present (Packed_Array_Type (E)) then + if Is_Array_Type (E) + and then Present (Packed_Array_Impl_Type (E)) + then declare - PAT : constant Entity_Id := Packed_Array_Type (E); + PAT : constant Entity_Id := Packed_Array_Impl_Type (E); begin if Unknown_Esize (E) then @@ -3169,7 +3171,9 @@ package body Layout is -- front end layout, because otherwise this is always handled in the -- backend. - if Is_Packed_Array_Type (E) and then not Frontend_Layout_On_Target then + if Is_Packed_Array_Impl_Type (E) + and then not Frontend_Layout_On_Target + then return; -- If there is an alignment clause, then we respect it |