diff options
author | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-10-21 15:49:12 +0000 |
---|---|---|
committer | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-10-21 15:49:12 +0000 |
commit | cb68166ed2c65ea7fa7dded0ef7502a98a6fa056 (patch) | |
tree | 2ac55dcc949ad5e86402b8a2be1c4680fc09bdc8 /gcc/ada | |
parent | 3ee3365e10c582543d864e13588280d0b9996373 (diff) | |
download | gcc-cb68166ed2c65ea7fa7dded0ef7502a98a6fa056.tar.gz |
PR ada/22418
* decl.c (maybe_pad_type): Use proper bitsizetype for XVZ objects,
as we create them to store a size in bits.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@105743 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada')
-rw-r--r-- | gcc/ada/ChangeLog | 8 | ||||
-rw-r--r-- | gcc/ada/decl.c | 2 |
2 files changed, 8 insertions, 2 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 877d6b7dfe4..31f324a142b 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,9 @@ +2005-09-21 Olivier Hainque <hainque@adacore.com> + + PR ada/22418 + * decl.c (maybe_pad_type): Use proper bitsizetype for XVZ objects, + as we create them to store a size in bits. + 2005-10-21 Eric Botcazou <ebotcazou@adacore.com> PR ada/21937 @@ -12,7 +18,7 @@ of manually building the RETURN_EXPR tree. (call_to_gnu): Pass MODIFY_EXPR through build_binary_op. (gnat_to_gnu) <N_Return_Statement>: Pass MODIFY_EXPR through - build_binary_op for the "target pointer" case. Use build_return_expr + build_binary_op for the "target pointer" case. Use build_return_expr instead of manually building the RETURN_EXPR tree. 2005-09-16 Laurent GUERBY <laurent@guerby.net> diff --git a/gcc/ada/decl.c b/gcc/ada/decl.c index 701501e8889..5a9c931dca6 100644 --- a/gcc/ada/decl.c +++ b/gcc/ada/decl.c @@ -4985,7 +4985,7 @@ maybe_pad_type (tree type, tree size, unsigned int align, if (size && TREE_CODE (size) != INTEGER_CST && definition) create_var_decl (concat_id_with_name (name, "XVZ"), NULL_TREE, - sizetype, TYPE_SIZE (record), false, false, false, + bitsizetype, TYPE_SIZE (record), false, false, false, false, NULL, gnat_entity); } |