diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2010-04-25 09:42:41 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2010-04-25 09:42:41 +0000 |
| commit | b5bba4a6c109e1a467a355798d0a049fe81c658c (patch) | |
| tree | f618dae8160d46ea99f359e80da1ab683354f146 /gcc/ada/gcc-interface/decl.c | |
| parent | 82d6f5327943f851a1c2973055f3e7ed09071dbb (diff) | |
| download | gcc-b5bba4a6c109e1a467a355798d0a049fe81c658c.zip gcc-b5bba4a6c109e1a467a355798d0a049fe81c658c.tar.gz gcc-b5bba4a6c109e1a467a355798d0a049fe81c658c.tar.bz2 | |
exp_dbug.ads: Fix outdated description.
* exp_dbug.ads: Fix outdated description. Mention link between XVS
and XVZ objects.
* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Record_Subtype>: Set
XVZ variable as unit size of XVS type.
(maybe_pad_type): Likewise.
From-SVN: r158703
Diffstat (limited to 'gcc/ada/gcc-interface/decl.c')
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index f9d88a6..ccedee0 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -3258,9 +3258,12 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) if (definition && TREE_CODE (gnu_size_unit) != INTEGER_CST && !CONTAINS_PLACEHOLDER_P (gnu_size_unit)) - create_var_decl (create_concat_name (gnat_entity, "XVZ"), - NULL_TREE, sizetype, gnu_size_unit, false, - false, false, false, NULL, gnat_entity); + TYPE_SIZE_UNIT (gnu_subtype_marker) + = create_var_decl (create_concat_name (gnat_entity, + "XVZ"), + NULL_TREE, sizetype, gnu_size_unit, + false, false, false, false, NULL, + gnat_entity); } /* Now we can finalize it. */ @@ -6253,9 +6256,10 @@ maybe_pad_type (tree type, tree size, unsigned int align, add_parallel_type (TYPE_STUB_DECL (record), marker); if (definition && size && TREE_CODE (size) != INTEGER_CST) - create_var_decl (concat_name (name, "XVZ"), NULL_TREE, sizetype, - TYPE_SIZE_UNIT (record), false, false, false, - false, NULL, gnat_entity); + TYPE_SIZE_UNIT (marker) + = create_var_decl (concat_name (name, "XVZ"), NULL_TREE, sizetype, + TYPE_SIZE_UNIT (record), false, false, false, + false, NULL, gnat_entity); } rest_of_record_type_compilation (record); |