diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-29 16:21:55 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-29 16:21:55 +0000 |
| commit | b461b108af37b194ed428f021ec4bceef797c722 (patch) | |
| tree | feca584ba266a98eb8c687cc50ea7aa3b16dd2f3 | |
| parent | d1bf3f0e9645e3f05c82f59e1772e9b599b2431f (diff) | |
| download | ppe42-gcc-b461b108af37b194ed428f021ec4bceef797c722.tar.gz ppe42-gcc-b461b108af37b194ed428f021ec4bceef797c722.zip | |
2005-03-29 Richard Kenner <kenner@vlsi1.ultra.nyu.edu>
PR ada/19956
* utils.c (finish_record_type): Use variable_size when setting sizes.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@97186 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/ada/utils.c | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c index 762ec307ff6..484067d87f0 100644 --- a/gcc/ada/utils.c +++ b/gcc/ada/utils.c @@ -668,10 +668,10 @@ finish_record_type (tree record_type, tree fieldlist, bool has_rep, TYPE_MODE (record_type) = BLKmode; if (!had_size_unit) - TYPE_SIZE_UNIT (record_type) = size_zero_node; - + TYPE_SIZE_UNIT (record_type) = size_zero_node; if (!had_size) TYPE_SIZE (record_type) = bitsize_zero_node; + /* For all-repped records with a size specified, lay the QUAL_UNION_TYPE out just like a UNION_TYPE, since the size will be fixed. */ else if (code == QUAL_UNION_TYPE) @@ -796,9 +796,11 @@ finish_record_type (tree record_type, tree fieldlist, bool has_rep, : convert (sizetype, size_binop (CEIL_DIV_EXPR, size, bitsize_unit_node))); - TYPE_SIZE (record_type) = round_up (size, TYPE_ALIGN (record_type)); + TYPE_SIZE (record_type) + = variable_size (round_up (size, TYPE_ALIGN (record_type))); TYPE_SIZE_UNIT (record_type) - = round_up (size_unit, TYPE_ALIGN (record_type) / BITS_PER_UNIT); + = variable_size (round_up (size_unit, + TYPE_ALIGN (record_type) / BITS_PER_UNIT)); compute_record_mode (record_type); } |
