diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2008-09-20 10:29:08 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2008-09-20 10:29:08 +0000 |
| commit | 7fda15966e1c2f6613cef8c30c26cc05dba2e590 (patch) | |
| tree | 6670ef5e7e1b5bb1b67c769759e39732ee90221e /gcc/ada/gcc-interface/decl.c | |
| parent | 76e68dca26be88ab2e96aac6c1af79b946d0f4ee (diff) | |
| download | gcc-7fda15966e1c2f6613cef8c30c26cc05dba2e590.zip gcc-7fda15966e1c2f6613cef8c30c26cc05dba2e590.tar.gz gcc-7fda15966e1c2f6613cef8c30c26cc05dba2e590.tar.bz2 | |
exp_dbug.ads: Document new convention for the XVZ variable.
* exp_dbug.ads: Document new convention for the XVZ variable.
* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Array_Type>: Generate
debug info if necessary for the type padding the component type.
<E_Array_Subtype>: Likewise.
(maybe_pad_type): Emit the XVZ variable in units.
* gcc-interface/trans.c (Loop_Statement_to_gnu): Fix formatting nits.
(Subprogram_Body_to_gnu): Set the source line of the subprogram's node
on statements generated to initialize the parameter attributes cache.
Set the source line of the end label of the body on the special return
statement built for a procedure with copy-in copy-out parameters.
From-SVN: r140513
Diffstat (limited to 'gcc/ada/gcc-interface/decl.c')
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index c254990..a8fa1ba 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -1955,8 +1955,8 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) never be declared otherwise. This is necessary to ensure that its subtrees are properly marked. */ if (tem != orig_tem) - create_type_decl (TYPE_NAME (tem), tem, NULL, true, false, - gnat_entity); + create_type_decl (TYPE_NAME (tem), tem, NULL, true, + debug_info_p, gnat_entity); } if (Has_Volatile_Components (gnat_entity)) @@ -2324,7 +2324,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) to ensure that its subtrees are properly marked. */ if (gnu_type != orig_gnu_type) create_type_decl (TYPE_NAME (gnu_type), gnu_type, NULL, - true, false, gnat_entity); + true, debug_info_p, gnat_entity); } if (Has_Volatile_Components (Base_Type (gnat_entity))) @@ -5867,8 +5867,8 @@ 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, - bitsizetype, TYPE_SIZE (record), false, false, false, - false, NULL, gnat_entity); + sizetype, TYPE_SIZE_UNIT (record), false, false, + false, false, NULL, gnat_entity); } rest_of_record_type_compilation (record); |