diff options
| author | Nicolas Setton <setton@adacore.com> | 2008-06-06 21:36:28 +0000 |
|---|---|---|
| committer | Olivier Hainque <hainque@gcc.gnu.org> | 2008-06-06 21:36:28 +0000 |
| commit | 081a52ed5221b9fe0280f80b3646c6118eb3ed1c (patch) | |
| tree | 92a62fd35271bf3f29e34745397c5bfee0abfb25 /gcc/ada/decl.c | |
| parent | e919209b4eb54e6f731510475c4b8ed64c23140e (diff) | |
| download | gcc-081a52ed5221b9fe0280f80b3646c6118eb3ed1c.zip gcc-081a52ed5221b9fe0280f80b3646c6118eb3ed1c.tar.gz gcc-081a52ed5221b9fe0280f80b3646c6118eb3ed1c.tar.bz2 | |
ada-tree.h (DECL_PARALLEL_TYPE): New language specific attribute...
2008-06-06 Nicolas Setton <setton@adacore.com>
Olivier Hainque <hainque@adacore.com>
* ada-tree.h (DECL_PARALLEL_TYPE): New language specific
attribute, parallel descriptive type attached to another type
for debug info generation purposes.
* utils.c (add_parallel_type): New function, register parallel
type to be attached to a type.
(get_parallel_type): New function, fetch a registered parallel
type, if any.
(rest_of_record_type_compilation): Register the parallel type we
make for variable size records.
* gigi.h (add_parallel_type, get_parallel_type): Declare.
* decl.c (gnat_to_gnu_entity, maybe_pad_type): Register the
parallel debug types we make.
* trans.c (extract_encoding, decode_name): New functions.
(gigi): If the DWARF attribute extensions are available, setup
to use them.
* lang.opt: Register language specific processing request
for -gdwarf+.
* misc.c (gnat_dwarf_extensions): New global variable. How much
do we want of our DWARF extensions. 0 by default.
(gnat_handle_option) <OPT_gdwarf_>: Increment gnat_dwarf_extensions.
(gnat_post_options): Map gnat_dwarf_extensions to the common
use_gnu_debug_info_extensions for later processing.
Co-Authored-By: Olivier Hainque <hainque@adacore.com>
From-SVN: r136506
Diffstat (limited to 'gcc/ada/decl.c')
| -rw-r--r-- | gcc/ada/decl.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/gcc/ada/decl.c b/gcc/ada/decl.c index a61c2f0..01827b4 100644 --- a/gcc/ada/decl.c +++ b/gcc/ada/decl.c @@ -2376,6 +2376,12 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) finish_record_type (gnu_bound_rec_type, gnu_field_list, 0, false); + + TYPE_STUB_DECL (gnu_type) + = build_decl (TYPE_DECL, NULL_TREE, gnu_type); + + add_parallel_type + (TYPE_STUB_DECL (gnu_type), gnu_bound_rec_type); } TYPE_CONVENTION_FORTRAN_P (gnu_type) @@ -3106,6 +3112,9 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) 0, NULL_TREE, NULL_TREE, 0), 0, false); + + add_parallel_type (TYPE_STUB_DECL (gnu_type), + gnu_subtype_marker); } /* Now we can finalize it. */ @@ -5767,6 +5776,8 @@ maybe_pad_type (tree type, tree size, unsigned int align, 0), 0, false); + add_parallel_type (TYPE_STUB_DECL (record), marker); + 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, |