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/checks.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/checks.adb')
-rw-r--r-- | gcc/ada/checks.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb index 587092b..d055306 100644 --- a/gcc/ada/checks.adb +++ b/gcc/ada/checks.adb @@ -5307,7 +5307,7 @@ package body Checks is -- so they are also always valid (in particular, the unused bits can be -- random rubbish without affecting the validity of the array value). - if not Is_Scalar_Type (Typ) or else Is_Packed_Array_Type (Typ) then + if not Is_Scalar_Type (Typ) or else Is_Packed_Array_Impl_Type (Typ) then return True; -- If no validity checking, then everything is considered valid @@ -6526,7 +6526,7 @@ package body Checks is if Analyzed (PV) and then Nkind (PV) = N_Indexed_Component - and then Present (Packed_Array_Type (Etype (Prefix (PV)))) + and then Present (Packed_Array_Impl_Type (Etype (Prefix (PV)))) then Set_Analyzed (PV, False); end if; |