aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/layout.adb
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2010-06-17 10:49:10 +0200
committerArnaud Charlet <charlet@gcc.gnu.org>2010-06-17 10:49:10 +0200
commit3428cb9fcb371855b04fd7b796cd98819a31047d (patch)
tree066e1adebcc7146bf71fc691cc7a5d509266e72e /gcc/ada/layout.adb
parent547c595499a0ff69e2d4d2b77cd1cb9ada430f0e (diff)
downloadgcc-3428cb9fcb371855b04fd7b796cd98819a31047d.zip
gcc-3428cb9fcb371855b04fd7b796cd98819a31047d.tar.gz
gcc-3428cb9fcb371855b04fd7b796cd98819a31047d.tar.bz2
[multiple changes]
2010-06-17 Robert Dewar <dewar@adacore.com> * switch-c.ads, switch-c.adb, sem_ch13.adb: Minor reformatting. * sem_ch12.adb: Add pragmas Assert and Check to previous change. 2010-06-17 Gary Dismukes <dismukes@adacore.com> * layout.adb (Layout_Type): Broaden test for setting an array type's Component_Size to include all scalar types, not just discrete types (components of real types were missed). * sem_ch3.adb (Constrain_Index): Add missing setting of First_Literal on the itype created for an index (consistent with Make_Index and avoids possible Assert_Failures). 2010-06-17 Robert Dewar <dewar@adacore.com> * atree.ads, atree.adb: Add 6-parameter version of Ekind_In * einfo.adb: Minor code reformatting (use Ekind_In) From-SVN: r160887
Diffstat (limited to 'gcc/ada/layout.adb')
-rw-r--r--gcc/ada/layout.adb4
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/layout.adb b/gcc/ada/layout.adb
index 69772d6..c850ab0 100644
--- a/gcc/ada/layout.adb
+++ b/gcc/ada/layout.adb
@@ -2560,10 +2560,10 @@ package body Layout is
begin
-- For some reasons, access types can cause trouble, So let's
- -- just do this for discrete types ???
+ -- just do this for scalar types ???
if Present (CT)
- and then Is_Discrete_Type (CT)
+ and then Is_Scalar_Type (CT)
and then Known_Static_Esize (CT)
then
declare