diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2021-05-21 11:19:32 +0200 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@adacore.com> | 2021-05-21 11:19:32 +0200 |
| commit | 3553d8c2fecbe8d831538c661c9e58e7ae50c385 (patch) | |
| tree | e300ee094019d4bd238780856d54f50c2fd2d955 /gcc/ada/gcc-interface/utils.c | |
| parent | 4a29b8d62726d100e1c5ea1e3401309a1437c6be (diff) | |
| download | gcc-3553d8c2fecbe8d831538c661c9e58e7ae50c385.zip gcc-3553d8c2fecbe8d831538c661c9e58e7ae50c385.tar.gz gcc-3553d8c2fecbe8d831538c661c9e58e7ae50c385.tar.bz2 | |
Consistently generate debug info for elaboration variables
This makes sure that debug info is generated for elaboration variables,
even if the variables are not generated exclusively for this purpose.
gcc/ada/
* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Named_Integer>: Do
not pass default value in call to create_var_decl.
<E_Variable>: Likewise.
<E_Record_Subtype>: Both pass true for const_flag and false for
const_decl_allowed_p in call to create_var_decl.
Small tweaks in the generic record type case.
(elaborate_expression): Rename need_debug into need_for_debug and
adjust throughout.
(elaborate_expression_1): Likewise. Pass Needs_Debug_Info instead
of need_for_debug in call to create_var_decl.
(elaborate_expression_2): Likewise.
* gcc-interface/utils.c (maybe_pad_type): Pass false for
const_decl_allowed_p in call to create_var_decl.
Diffstat (limited to 'gcc/ada/gcc-interface/utils.c')
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index 8de8599..8d1040b 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -1637,7 +1637,7 @@ maybe_pad_type (tree type, tree size, unsigned int align, = create_var_decl (concat_name (name, "XVZ"), NULL_TREE, sizetype, size_unit, true, global_bindings_p (), !definition && global_bindings_p (), false, - false, true, true, NULL, gnat_entity); + false, true, true, NULL, gnat_entity, false); TYPE_SIZE_UNIT (record) = size_unit; } |