OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Eric Botcazou 2008-04-18 18:33:14 +00:00 committed by Eric Botcazou
parent ed3444e901
commit 3569056b39
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -1,3 +1,8 @@
2008-04-18 Eric Botcazou <ebotcazou@adacore.com>
* decl.c (maybe_pad_type): Only generate the XVS parallel type if
the padded type has a variable size.
2008-04-18 Eric Botcazou <ebotcazou@adacore.com>
* decl.c (gnat_to_gnu_entity) <E_Subprogram_Type>: Use the return by

7
gcc/ada/decl.c
View File

@ -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);