diff options
| author | Olivier Hainque <hainque@adacore.com> | 2005-10-21 15:49:12 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2005-10-21 15:49:12 +0000 |
| commit | 8fafe21dc2d900a8843740ae5b3ba1a18e552844 (patch) | |
| tree | 2ac55dcc949ad5e86402b8a2be1c4680fc09bdc8 /gcc/ada/decl.c | |
| parent | 552725e3bd542d98dd0f4a830c602230fff7138c (diff) | |
| download | gcc-8fafe21dc2d900a8843740ae5b3ba1a18e552844.zip gcc-8fafe21dc2d900a8843740ae5b3ba1a18e552844.tar.gz gcc-8fafe21dc2d900a8843740ae5b3ba1a18e552844.tar.bz2 | |
re PR ada/22418 (Ada produces mis-match (non compatible) types in MODIFY_EXPR)
PR ada/22418
* decl.c (maybe_pad_type): Use proper bitsizetype for XVZ objects,
as we create them to store a size in bits.
From-SVN: r105743
Diffstat (limited to 'gcc/ada/decl.c')
| -rw-r--r-- | gcc/ada/decl.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/decl.c b/gcc/ada/decl.c index 701501e8..5a9c931 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); } |