diff options
| author | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-12-09 10:35:15 +0000 |
|---|---|---|
| committer | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-12-09 10:35:15 +0000 |
| commit | 3a2a1581bf444ee7b777251663df927b7cf97a67 (patch) | |
| tree | 2d26d01a8b2486717bc8bb2e8e69385da3d1fcc2 /gcc/ada | |
| parent | d8b9c8282ed92ae46155488b0cf28337b78253a0 (diff) | |
| download | gcc-3a2a1581bf444ee7b777251663df927b7cf97a67.tar.gz | |
PR ada/38450
* gcc-interface/utils.c (finish_record_type): Use SET_TYPE_MODE.
* gcc-interface/decl.c (gnat_to_gnu_entity, make_aligning_type):
Likewise.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@142588 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 10 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 2 |
3 files changed, 13 insertions, 6 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index b2425ba92f3..166baa82dcd 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,10 @@ +2008-12-09 Jakub Jelinek <jakub@redhat.com> + + PR ada/38450 + * gcc-interface/utils.c (finish_record_type): Use SET_TYPE_MODE. + * gcc-interface/decl.c (gnat_to_gnu_entity, make_aligning_type): + Likewise. + 2008-12-05 Sebastian Pop <sebastian.pop@amd.com> PR bootstrap/38262 diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index 14fcd634b61..20c5fb4686f 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -2032,7 +2032,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) corresponding fat pointer. */ TREE_TYPE (gnu_type) = TYPE_POINTER_TO (gnu_type) = TYPE_REFERENCE_TO (gnu_type) = gnu_fat_type; - TYPE_MODE (gnu_type) = BLKmode; + SET_TYPE_MODE (gnu_type, BLKmode); TYPE_ALIGN (gnu_type) = TYPE_ALIGN (tem); SET_TYPE_UNCONSTRAINED_ARRAY (gnu_fat_type, gnu_type); @@ -2873,7 +2873,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) that these objects will always be placed in memory. Do the same thing for limited record types. */ if (Is_Tagged_Type (gnat_entity) || Is_Limited_Record (gnat_entity)) - TYPE_MODE (gnu_type) = BLKmode; + SET_TYPE_MODE (gnu_type, BLKmode); /* If this is a derived type, we must make the alias set of this type the same as that of the type we are derived from. We assume here @@ -5572,7 +5572,7 @@ make_aligning_type (tree type, unsigned int align, tree size, = size_binop (PLUS_EXPR, size, size_int (room + align / BITS_PER_UNIT)); - TYPE_MODE (record_type) = BLKmode; + SET_TYPE_MODE (record_type, BLKmode); copy_alias_set (record_type, type); return record_type; @@ -5721,8 +5721,8 @@ make_packable_type (tree type, bool in_record) /* Try harder to get a packable type if necessary, for example in case the record itself contains a BLKmode field. */ if (in_record && TYPE_MODE (new_type) == BLKmode) - TYPE_MODE (new_type) - = mode_for_size_tree (TYPE_SIZE (new_type), MODE_INT, 1); + SET_TYPE_MODE (new_type, + mode_for_size_tree (TYPE_SIZE (new_type), MODE_INT, 1)); /* If neither the mode nor the size has shrunk, return the old type. */ if (TYPE_MODE (new_type) == BLKmode && new_size >= size) diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index 131b2376ac7..7b52d902241 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -839,7 +839,7 @@ finish_record_type (tree record_type, tree fieldlist, int rep_level, if (rep_level > 0) { TYPE_ALIGN (record_type) = MAX (BITS_PER_UNIT, TYPE_ALIGN (record_type)); - TYPE_MODE (record_type) = BLKmode; + SET_TYPE_MODE (record_type, BLKmode); if (!had_size_unit) TYPE_SIZE_UNIT (record_type) = size_zero_node; |