From df6aed3a4d3fd48013c10787c28dcacf887f211b Mon Sep 17 00:00:00 2001 From: hainque Date: Fri, 6 Jun 2008 21:36:28 +0000 Subject: 2008-06-06 Nicolas Setton Olivier Hainque * 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) : Increment gnat_dwarf_extensions. (gnat_post_options): Map gnat_dwarf_extensions to the common use_gnu_debug_info_extensions for later processing. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@136506 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/ada-tree.h | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'gcc/ada/ada-tree.h') diff --git a/gcc/ada/ada-tree.h b/gcc/ada/ada-tree.h index 6c60adfbfa4..3d585b5b788 100644 --- a/gcc/ada/ada-tree.h +++ b/gcc/ada/ada-tree.h @@ -290,6 +290,12 @@ struct lang_type GTY(()) {tree t; }; #define SET_DECL_RENAMED_OBJECT(NODE, X) \ SET_DECL_LANG_SPECIFIC (VAR_DECL_CHECK (NODE), X) +/* In a TYPE_DECL, points to the parallel type if any, otherwise 0. */ +#define DECL_PARALLEL_TYPE(NODE) \ + GET_DECL_LANG_SPECIFIC (TYPE_DECL_CHECK (NODE)) +#define SET_DECL_PARALLEL_TYPE(NODE, X) \ + SET_DECL_LANG_SPECIFIC (TYPE_DECL_CHECK (NODE), X) + /* In a FUNCTION_DECL, points to the stub associated with the function if any, otherwise 0. */ #define DECL_FUNCTION_STUB(NODE) \ -- cgit v1.2.1