diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2008-04-18 18:33:14 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2008-04-18 18:33:14 +0000 |
| commit | 3569056b39aa149312e75580a00a6a012eb22d05 (patch) | |
| tree | bb2b1497e101a864f13fa46a185e42bc1c04587f /gcc/ada/decl.c | |
| parent | ed3444e90132848d00d21f901ea1626d3af8b499 (diff) | |
| download | gcc-3569056b39aa149312e75580a00a6a012eb22d05.zip gcc-3569056b39aa149312e75580a00a6a012eb22d05.tar.gz gcc-3569056b39aa149312e75580a00a6a012eb22d05.tar.bz2 | |
decl.c (maybe_pad_type): Only generate the XVS parallel type if the padded type has a variable size.
* decl.c (maybe_pad_type): Only generate the XVS parallel type if
the padded type has a variable size.
From-SVN: r134443
Diffstat (limited to 'gcc/ada/decl.c')
| -rw-r--r-- | gcc/ada/decl.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/ada/decl.c b/gcc/ada/decl.c index 254b70a..525dad8 100644 --- a/gcc/ada/decl.c +++ b/gcc/ada/decl.c @@ -5683,11 +5683,12 @@ maybe_pad_type (tree type, tree size, unsigned int align, /* Unless debugging information isn't being written for the input type, write a record that shows what we are a subtype of and also make a - variable that indicates our size, if variable. */ + variable that indicates our size, if still variable. */ if (TYPE_NAME (record) && AGGREGATE_TYPE_P (type) - && (TREE_CODE (TYPE_NAME (type)) != TYPE_DECL - || !DECL_IGNORED_P (TYPE_NAME (type)))) + && TREE_CODE (orig_size) != INTEGER_CST + && !(TREE_CODE (TYPE_NAME (type)) == TYPE_DECL + && DECL_IGNORED_P (TYPE_NAME (type)))) { tree marker = make_node (RECORD_TYPE); tree name = TYPE_NAME (record); |