OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

lang.opt (gdwarf+): Remove.

Browse Source 
* gcc-interface/lang.opt (gdwarf+): Remove.
	* gcc-interface/gigi.h (get_parallel_type): Likewise
	* gcc-interface/misc.c (gnat_dwarf_extensions): Likewise.
	(gnat_handle_option): Remove OPT_gdwarfplus case.
	(gnat_post_options): Remove setting of use_gnu_debug_info_extensions
	from gnat_dwarf_extensions.
	* gcc-interface/trans.c (gigi): Remove -gdwarf+ initializations.
	* gcc-interface/utils.c (get_parallel_type): Remove.

From-SVN: r165254
This commit is contained in:
Olivier Hainque 2010-10-10 13:25:19 +00:00 committed by Eric Botcazou
parent 658a41acf0
commit b160794381
6 changed files with 13 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gcc/ada/ChangeLog
View File

@ -1,8 +1,20 @@
2010-10-10 Olivier Hainque <hainque@adacore.com>
Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/lang.opt (gdwarf+): Remove.
* gcc-interface/gigi.h (get_parallel_type): Likewise
* gcc-interface/misc.c (gnat_dwarf_extensions): Likewise.
(gnat_handle_option): Remove OPT_gdwarfplus case.
(gnat_post_options): Remove setting of use_gnu_debug_info_extensions
from gnat_dwarf_extensions.
* gcc-interface/trans.c (gigi): Remove -gdwarf+ initializations.
* gcc-interface/utils.c (get_parallel_type): Remove.
2010-10-10 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/trans.c (gnat_to_gnu) <N_Not_In>: Use
invert_truthvalue_loc instead of invert_truthvalue.
* utils2.c (build_binary_op) <NE_EXPR>: Likewise.
* gcc-interface/utils2.c (build_binary_op) <NE_EXPR>: Likewise.
(build_unary_op) <TRUTH_NOT_EXPR>: Likewise.
2010-10-10 Eric Botcazou <ebotcazou@adacore.com>

3
gcc/ada/gcc-interface/gigi.h
View File

@ -509,9 +509,6 @@ extern void rest_of_record_type_compilation (tree record_type);
/* Append PARALLEL_TYPE on the chain of parallel types for decl. */
extern void add_parallel_type (tree decl, tree parallel_type);
/* Return the parallel type associated to a type, if any. */
extern tree get_parallel_type (tree type);
/* Return a FUNCTION_TYPE node. RETURN_TYPE is the type returned by the
subprogram. If it is VOID_TYPE, then we are dealing with a procedure,
otherwise we are dealing with a function. PARAM_DECL_LIST is a list of

4
gcc/ada/gcc-interface/lang.opt
View File

@ -101,10 +101,6 @@ fRTS=
Ada Joined RejectNegative
; Selects the runtime
gdwarf+
Ada
; Explicit request for dwarf debug info with GNAT specific extensions.
gant
Ada Joined Undocumented
; Catches typos

15
gcc/ada/gcc-interface/misc.c
View File

@ -59,12 +59,6 @@
/* This symbol needs to be defined for the front-end. */
void *callgraph_info_file = NULL;
/* How much we want of our DWARF extensions. Some of our DWARF extensions
are incompatible with regular GDB versions, so we must make sure to only
produce them on explicit request. This is eventually reflected into the
use_gnu_debug_info_extensions common flag for later processing. */
static int gnat_dwarf_extensions = 0;
/* Command-line argc and argv. These variables are global since they are
imported in back_end.adb. */
unsigned int save_argc;
@ -139,10 +133,6 @@ gnat_handle_option (size_t scode, const char *arg ATTRIBUTE_UNUSED, int value,
flag_eliminate_unused_debug_types = -value;
break;
case OPT_gdwarfplus:
gnat_dwarf_extensions = 1;
break;
case OPT_gant:
warning (0, "%<-gnat%> misspelled as %<-gant%>");
@ -260,11 +250,6 @@ gnat_post_options (const char **pfilename ATTRIBUTE_UNUSED)
else
flag_eliminate_unused_debug_types = 0;
/* Reflect the explicit request of DWARF extensions into the common
flag for use by later passes. */
if (write_symbols == DWARF2_DEBUG)
use_gnu_debug_info_extensions = gnat_dwarf_extensions > 0;
optimize = global_options.x_optimize;
optimize_size = global_options.x_optimize_size;

12
gcc/ada/gcc-interface/trans.c
View File

@ -286,18 +286,6 @@ gigi (Node_Id gnat_root, int max_gnat_node, int number_name ATTRIBUTE_UNUSED,
TYPE_SIZE_UNIT (void_type_node) = size_zero_node;
}
/* If the GNU type extensions to DWARF are available, setup the hooks. */
#if defined (DWARF2_DEBUGGING_INFO) && defined (DWARF2_GNU_TYPE_EXTENSIONS)
/* We condition the name demangling and the generation of type encoding
strings on -gdwarf+ and always set descriptive types on. */
if (use_gnu_debug_info_extensions)
{
dwarf2out_set_type_encoding_func (extract_encoding);
dwarf2out_set_demangle_name_func (decode_name);
}
dwarf2out_set_descriptive_type_func (get_parallel_type);
#endif
/* Enable GNAT stack checking method if needed */
if (!Stack_Check_Probes_On_Target)
set_stack_check_libfunc ("_gnat_stack_check");

11
gcc/ada/gcc-interface/utils.c
View File

@ -963,17 +963,6 @@ add_parallel_type (tree decl, tree parallel_type)
SET_DECL_PARALLEL_TYPE (d, parallel_type);
}
/* Return the parallel type associated to a type, if any. */
tree
get_parallel_type (tree type)
{
if (TYPE_STUB_DECL (type))
return DECL_PARALLEL_TYPE (TYPE_STUB_DECL (type));
else
return NULL_TREE;
}
/* Utility function of above to merge LAST_SIZE, the previous size of a record
with FIRST_BIT and SIZE that describe a field. SPECIAL is true if this
represents a QUAL_UNION_TYPE in which case we must look for COND_EXPRs and