CbC/CbC_gcc: gcc/sdbout.c comparison

comparison gcc/sdbout.c @ 111:04ced10e8804

gcc 7

author	kono
date	Fri, 27 Oct 2017 22:46:09 +0900
parents	f6334be47118
children

comparison

equal deleted inserted replaced

-:561a7518be6b
+:04ced10e8804
 /* Output sdb-format symbol table information from GNU compiler.
-Copyright (C) 1988, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
+Copyright (C) 1988-2017 Free Software Foundation, Inc.
-2000, 2001, 2002, 2003, 2004, 2005, 2007, 2008, 2009, 2010
-Free Software Foundation, Inc.
 This file is part of GCC.
 GCC is free software; you can redistribute it and/or modify it under
 the terms of the GNU General Public License as published by the Free
 */
 #include "config.h"
 #include "system.h"
 #include "coretypes.h"
+#include "gsyms.h"
 #include "tm.h"
 #include "debug.h"
 #include "tree.h"
-#include "ggc.h"
+#include "varasm.h"
-#include "vec.h"
+#include "stor-layout.h"
 static GTY(()) tree anonymous_types;
 /* Counter to generate unique "names" for nameless struct members.  */
 static GTY(()) int unnamed_struct_number;
 /* Declarations whose debug info was deferred till end of compilation.  */
-static GTY(()) VEC(tree,gc) *deferred_global_decls;
+static GTY(()) vec<tree, va_gc> *deferred_global_decls;
 /* The C front end may call sdbout_symbol before sdbout_init runs.
 We save all such decls in this list and output them when we get
 to sdbout_init.  */
 static GTY(()) tree preinit_symbols;
 static GTY(()) bool sdbout_initialized;
-#ifdef SDB_DEBUGGING_INFO
 #include "rtl.h"
 #include "regs.h"
+#include "function.h"
+#include "memmodel.h"
+#include "emit-rtl.h"
 #include "flags.h"
 #include "insn-config.h"
 #include "reload.h"
 #include "output.h"
 #include "diagnostic-core.h"
 #include "tm_p.h"
-#include "gsyms.h"
 #include "langhooks.h"
 #include "target.h"
 /* 1 if PARM is passed to this function in memory.  */
 static void sdbout_finish		(const char *);
 static void sdbout_start_source_file	(unsigned int, const char *);
 static void sdbout_end_source_file	(unsigned int);
 static void sdbout_begin_block		(unsigned int, unsigned int);
 static void sdbout_end_block		(unsigned int, unsigned int);
-static void sdbout_source_line		(unsigned int, const char *, int, bool);
+static void sdbout_source_line		(unsigned int, unsigned int,
+					 const char *, int, bool);
 static void sdbout_end_epilogue		(unsigned int, const char *);
-static void sdbout_global_decl		(tree);
+static void sdbout_early_global_decl	(tree);
-#ifndef MIPS_DEBUGGING_INFO
+static void sdbout_late_global_decl	(tree);
-static void sdbout_begin_prologue	(unsigned int, const char *);
+static void sdbout_begin_prologue	(unsigned int, unsigned int,
-#endif
+					 const char *);
 static void sdbout_end_prologue		(unsigned int, const char *);
 static void sdbout_begin_function	(tree);
 static void sdbout_end_function		(unsigned int);
 static void sdbout_toplevel_data	(tree);
-static void sdbout_label		(rtx);
+static void sdbout_label		(rtx_code_label *);
 static char *gen_fake_label		(void);
 static int plain_type			(tree);
 static int template_name_p		(tree);
 static void sdbout_record_type_name	(tree);
 static int plain_type_1			(tree, int);
 static void sdbout_type			(tree);
 static void sdbout_field_types		(tree);
 static void sdbout_one_type		(tree);
 static void sdbout_parms		(tree);
 static void sdbout_reg_parms		(tree);
-static void sdbout_global_decl		(tree);
 /* Random macros describing parts of SDB data.  */
 /* Default value of delimiter is ";".  */
 #ifndef SDB_DELIM
 #ifndef SDB_MAX_DIM
 #define SDB_MAX_DIM 4
 #endif
 #ifndef PUT_SDB_SCL
-#define PUT_SDB_SCL(a) fprintf(asm_out_file, "\t.scl\t%d%s", (a), SDB_DELIM)
+#define PUT_SDB_SCL(a) fprintf (asm_out_file, "\t.scl\t%d%s", (a), SDB_DELIM)
 #endif
 #ifndef PUT_SDB_INT_VAL
 #define PUT_SDB_INT_VAL(a) \
 do {									\
 assemble_name (asm_out_file, a);	\
 fprintf (asm_out_file, SDB_DELIM); } while (0)
 #endif
 #ifndef PUT_SDB_PLAIN_DEF
-#define PUT_SDB_PLAIN_DEF(a) fprintf(asm_out_file,"\t.def\t.%s%s",a, SDB_DELIM)
+#define PUT_SDB_PLAIN_DEF(a) \
+fprintf (asm_out_file, "\t.def\t.%s%s", a, SDB_DELIM)
 #endif
 #ifndef PUT_SDB_ENDEF
-#define PUT_SDB_ENDEF fputs("\t.endef\n", asm_out_file)
+#define PUT_SDB_ENDEF fputs ("\t.endef\n", asm_out_file)
 #endif
 #ifndef PUT_SDB_TYPE
-#define PUT_SDB_TYPE(a) fprintf(asm_out_file, "\t.type\t0%o%s", a, SDB_DELIM)
+#define PUT_SDB_TYPE(a) fprintf (asm_out_file, "\t.type\t0%o%s", a, SDB_DELIM)
 #endif
 #ifndef PUT_SDB_SIZE
 #define PUT_SDB_SIZE(a) \
 do {									\
 fprintf (asm_out_file, "\t.size\t" HOST_WIDE_INT_PRINT_DEC "%s",	\
 	    (HOST_WIDE_INT) (a), SDB_DELIM);				\
-} while(0)
+} while (0)
 #endif
 #ifndef PUT_SDB_START_DIM
-#define PUT_SDB_START_DIM fprintf(asm_out_file, "\t.dim\t")
+#define PUT_SDB_START_DIM fprintf (asm_out_file, "\t.dim\t")
 #endif
 #ifndef PUT_SDB_NEXT_DIM
-#define PUT_SDB_NEXT_DIM(a) fprintf(asm_out_file, "%d,", a)
+#define PUT_SDB_NEXT_DIM(a) fprintf (asm_out_file, "%d,", a)
 #endif
 #ifndef PUT_SDB_LAST_DIM
-#define PUT_SDB_LAST_DIM(a) fprintf(asm_out_file, "%d%s", a, SDB_DELIM)
+#define PUT_SDB_LAST_DIM(a) fprintf (asm_out_file, "%d%s", a, SDB_DELIM)
 #endif
 #ifndef PUT_SDB_TAG
 #define PUT_SDB_TAG(a)				\
 do { fprintf (asm_out_file, "\t.tag\t");	\
 /* Ensure we don't output a negative line number.  */
 #define MAKE_LINE_SAFE(line)  \
 if ((int) line <= sdb_begin_function_line) \
 line = sdb_begin_function_line + 1
-/* Perform linker optimization of merging header file definitions together
-for targets with MIPS_DEBUGGING_INFO defined.  This won't work without a
-post 960826 version of GAS.  Nothing breaks with earlier versions of GAS,
-the optimization just won't be done.  The native assembler already has the
-necessary support.  */
-#ifdef MIPS_DEBUGGING_INFO
-/* ECOFF linkers have an optimization that does the same kind of thing as
-N_BINCL/E_INCL in stabs: eliminate duplicate debug information in the
-executable.  To achieve this, GCC must output a .file for each file
-name change.  */
-/* This is a stack of input files.  */
-struct sdb_file
-{
-struct sdb_file *next;
-const char *name;
-};
-/* This is the top of the stack.  */
-static struct sdb_file *current_file;
-#endif /* MIPS_DEBUGGING_INFO */
 /* The debug hooks structure.  */
 const struct gcc_debug_hooks sdb_debug_hooks =
 {
 sdbout_init,			         /* init */
 sdbout_finish,		         /* finish */
+debug_nothing_charstar,		 /* early_finish */
 debug_nothing_void,			 /* assembly_start */
 debug_nothing_int_charstar,	         /* define */
 debug_nothing_int_charstar,	         /* undef */
 sdbout_start_source_file,	         /* start_source_file */
 sdbout_end_source_file,	         /* end_source_file */
 sdbout_begin_block,		         /* begin_block */
 sdbout_end_block,		         /* end_block */
 debug_true_const_tree,	         /* ignore_block */
 sdbout_source_line,		         /* source_line */
-#ifdef MIPS_DEBUGGING_INFO
-/* Defer on MIPS systems so that parameter descriptions follow
-function entry.  */
-debug_nothing_int_charstar,	         /* begin_prologue */
-sdbout_end_prologue,		         /* end_prologue */
-#else
 sdbout_begin_prologue,	         /* begin_prologue */
 debug_nothing_int_charstar,	         /* end_prologue */
-#endif
 debug_nothing_int_charstar,	         /* begin_epilogue */
 sdbout_end_epilogue,		         /* end_epilogue */
 sdbout_begin_function,	         /* begin_function */
 sdbout_end_function,		         /* end_function */
+debug_nothing_tree,		         /* register_main_translation_unit */
 debug_nothing_tree,		         /* function_decl */
-sdbout_global_decl,		         /* global_decl */
+sdbout_early_global_decl,		 /* early_global_decl */
+sdbout_late_global_decl,		 /* late_global_decl */
 sdbout_symbol,			 /* type_decl */
-debug_nothing_tree_tree_tree_bool,	 /* imported_module_or_decl */
+debug_nothing_tree_tree_tree_bool_bool,/* imported_module_or_decl */
+debug_false_tree_charstarstar_uhwistar,/* die_ref_for_decl */
+debug_nothing_tree_charstar_uhwi,      /* register_external_die */
 debug_nothing_tree,		         /* deferred_inline_function */
 debug_nothing_tree,		         /* outlining_inline_function */
 sdbout_label,			         /* label */
 debug_nothing_int,		         /* handle_pch */
-debug_nothing_rtx,		         /* var_location */
+debug_nothing_rtx_insn,	         /* var_location */
+debug_nothing_tree,			 /* size_function */
 debug_nothing_void,                    /* switch_text_section */
-debug_nothing_tree,		         /* direct_call */
-debug_nothing_tree_int,		 /* virtual_call_token */
-debug_nothing_rtx_rtx,	         /* copy_call_info */
-debug_nothing_uid,		         /* virtual_call */
 debug_nothing_tree_tree,		 /* set_name */
 0,                                     /* start_end_main_source_file */
 TYPE_SYMTAB_IS_POINTER                 /* tree_type_symtab_field */
 };
 	int precision = TYPE_PRECISION (type);
 	if (precision == FLOAT_TYPE_SIZE)
 	  return T_FLOAT;
 	if (precision == DOUBLE_TYPE_SIZE)
 	  return T_DOUBLE;
-#ifdef EXTENDED_SDB_BASIC_TYPES
-	if (precision == LONG_DOUBLE_TYPE_SIZE)
-	  return T_LNGDBL;
-#else
 	if (precision == LONG_DOUBLE_TYPE_SIZE)
 	  return T_DOUBLE;	/* better than nothing */
-#endif
 	return 0;
 }
 case ARRAY_TYPE:
 {
 	if (sdb_n_dims < SDB_MAX_DIM)
 	  sdb_dims[sdb_n_dims++]
 	    = (TYPE_DOMAIN (type)
 	       && TYPE_MIN_VALUE (TYPE_DOMAIN (type)) != 0
 	       && TYPE_MAX_VALUE (TYPE_DOMAIN (type)) != 0
-	       && host_integerp (TYPE_MAX_VALUE (TYPE_DOMAIN (type)), 0)
+	       && tree_fits_shwi_p (TYPE_MAX_VALUE (TYPE_DOMAIN (type)))
-	       && host_integerp (TYPE_MIN_VALUE (TYPE_DOMAIN (type)), 0)
+	       && tree_fits_shwi_p (TYPE_MIN_VALUE (TYPE_DOMAIN (type)))
-	       ? (tree_low_cst (TYPE_MAX_VALUE (TYPE_DOMAIN (type)), 0)
+	       ? (tree_to_shwi (TYPE_MAX_VALUE (TYPE_DOMAIN (type)))
-		  - tree_low_cst (TYPE_MIN_VALUE (TYPE_DOMAIN (type)), 0) + 1)
+		  - tree_to_shwi (TYPE_MIN_VALUE (TYPE_DOMAIN (type))) + 1)
 	       : 0);
 	return PUSH_DERIVED_LEVEL (DT_ARY, m);
 }
 	 if there is no RTL associated with the variable doesn't
 	 exist.  */
 if (!DECL_RTL_SET_P (decl))
 	return;
-SET_DECL_RTL (decl,
+value = DECL_RTL (decl);
-		    eliminate_regs (DECL_RTL (decl), VOIDmode, NULL_RTX));
+if (!is_global_var (decl))
+	value = eliminate_regs (value, VOIDmode, NULL_RTX);
+SET_DECL_RTL (decl, value);
 #ifdef LEAF_REG_REMAP
-if (current_function_uses_only_leaf_regs)
+if (crtl->uses_only_leaf_regs)
-	leaf_renumber_regs_insn (DECL_RTL (decl));
+	leaf_renumber_regs_insn (value);
 #endif
-value = DECL_RTL (decl);
 /* Don't mention a variable at all
 	 if it was completely optimized into nothingness.
 	 If DECL was from an inline function, then its rtl
 	  if (REG_P (value))
 	    {
 	      if (REGNO (value) >= FIRST_PSEUDO_REGISTER)
 		return;
 	    }
-	  regno = REGNO (alter_subreg (&value));
+	  regno = REGNO (alter_subreg (&value, true));
 	  SET_DECL_RTL (decl, value);
 	}
 /* Don't output anything if an auto variable
 	 gets RTL that is static.
 	 GAS version 2.2 can't handle such output.  */
 tree type = TREE_TYPE (decl);
 if (DECL_IGNORED_P (decl))
 return;
-gcc_assert (TREE_CODE (decl) == VAR_DECL);
+gcc_assert (VAR_P (decl));
 gcc_assert (MEM_P (DECL_RTL (decl)));
 gcc_assert (DECL_INITIAL (decl));
 PUT_SDB_DEF (IDENTIFIER_POINTER (DECL_ASSEMBLER_NAME (decl)));
 PUT_SDB_VAL (XEXP (DECL_RTL (decl), 0));
 /* This condition should match the one for emitting the actual
 members below.  */
 if (TREE_CODE (tail) == FIELD_DECL
 	&& DECL_NAME (tail)
 	&& DECL_SIZE (tail)
-	&& host_integerp (DECL_SIZE (tail), 1)
+	&& tree_fits_uhwi_p (DECL_SIZE (tail))
-	&& host_integerp (bit_position (tail), 0))
+	&& tree_fits_shwi_p (bit_position (tail)))
 {
 	if (POINTER_TYPE_P (TREE_TYPE (tail)))
 	  sdbout_one_type (TREE_TYPE (TREE_TYPE (tail)));
 	else
 	  sdbout_one_type (TREE_TYPE (tail));
 static void
 sdbout_one_type (tree type)
 {
 if (current_function_decl != NULL_TREE
-&& DECL_SECTION_NAME (current_function_decl) != NULL_TREE)
+&& DECL_SECTION_NAME (current_function_decl) != NULL)
 ; /* Don't change section amid function.  */
 else
-switch_to_section (text_section);
+switch_to_section (current_function_section ());
 switch (TREE_CODE (type))
 {
 case RECORD_TYPE:
 case UNION_TYPE:
 		  }
 		else
 		  continue;
 		PUT_SDB_DEF (IDENTIFIER_POINTER (child_type_name));
-		PUT_SDB_INT_VAL (tree_low_cst (BINFO_OFFSET (child), 0));
+		PUT_SDB_INT_VAL (tree_to_shwi (BINFO_OFFSET (child)));
 		PUT_SDB_SCL (member_scl);
 		sdbout_type (BINFO_TYPE (child));
 		PUT_SDB_ENDEF;
 	      }
 	  }
 	        tree value = TREE_VALUE (tem);
 	        if (TREE_CODE (value) == CONST_DECL)
 	          value = DECL_INITIAL (value);
-	        if (host_integerp (value, 0))
+	        if (tree_fits_shwi_p (value))
 		  {
 		    PUT_SDB_DEF (IDENTIFIER_POINTER (TREE_PURPOSE (tem)));
-		    PUT_SDB_INT_VAL (tree_low_cst (value, 0));
+		    PUT_SDB_INT_VAL (tree_to_shwi (value));
 		    PUT_SDB_SCL (C_MOE);
 		    PUT_SDB_TYPE (T_MOE);
 		    PUT_SDB_ENDEF;
 		  }
 	      }
 	       Also omit fields with variable size or position.
 	       Also omit non FIELD_DECL nodes that GNU C++ may put here.  */
 	    if (TREE_CODE (tem) == FIELD_DECL
 		&& DECL_NAME (tem)
 		&& DECL_SIZE (tem)
-		&& host_integerp (DECL_SIZE (tem), 1)
+		&& tree_fits_uhwi_p (DECL_SIZE (tem))
-		&& host_integerp (bit_position (tem), 0))
+		&& tree_fits_shwi_p (bit_position (tem)))
 	      {
 		const char *name;
 		name = IDENTIFIER_POINTER (DECL_NAME (tem));
 		PUT_SDB_DEF (name);
 		if (DECL_BIT_FIELD_TYPE (tem))
 		  {
 		    PUT_SDB_INT_VAL (int_bit_position (tem));
 		    PUT_SDB_SCL (C_FIELD);
 		    sdbout_type (DECL_BIT_FIELD_TYPE (tem));
-		    PUT_SDB_SIZE (tree_low_cst (DECL_SIZE (tem), 1));
+		    PUT_SDB_SIZE (tree_to_uhwi (DECL_SIZE (tem)));
 		  }
 		else
 		  {
 		    PUT_SDB_INT_VAL (int_bit_position (tem) / BITS_PER_UNIT);
 		    PUT_SDB_SCL (member_scl);
 static void
 sdbout_parms (tree parms)
 {
 for (; parms; parms = TREE_CHAIN (parms))
-if (DECL_NAME (parms))
+if (DECL_NAME (parms)
+	&& TREE_TYPE (parms) != error_mark_node
+	&& DECL_RTL_SET_P (parms)
+	&& DECL_INCOMING_RTL (parms))
 {
 	int current_sym_value = 0;
 	const char *name = IDENTIFIER_POINTER (DECL_NAME (parms));
 	if (name == 0 || *name == 0)
 		   double and it is converted to a char, short or float
 		   and stored back in the parmlist.  In this case, describe
 		   the parm with the variable's declared type, and adjust
 		   the address if the least significant bytes (which we are
 		   using) are not the first ones.  */
+		scalar_mode from_mode, to_mode;
 		if (BYTES_BIG_ENDIAN
-		    && TREE_TYPE (parms) != DECL_ARG_TYPE (parms))
+		    && TREE_TYPE (parms) != DECL_ARG_TYPE (parms)
-		  current_sym_value +=
+		    && is_a <scalar_mode> (TYPE_MODE (DECL_ARG_TYPE (parms)),
-		    (GET_MODE_SIZE (TYPE_MODE (DECL_ARG_TYPE (parms)))
+					   &from_mode)
-		     - GET_MODE_SIZE (GET_MODE (DECL_RTL (parms))));
+		    && is_a <scalar_mode> (GET_MODE (DECL_RTL (parms)),
+					   &to_mode))
+		  current_sym_value += (GET_MODE_SIZE (from_mode)
+					- GET_MODE_SIZE (to_mode));
 		if (MEM_P (DECL_RTL (parms))
 		    && GET_CODE (XEXP (DECL_RTL (parms), 0)) == PLUS
 		    && (GET_CODE (XEXP (XEXP (DECL_RTL (parms), 0), 1))
 			== CONST_INT)
 static void
 sdbout_reg_parms (tree parms)
 {
 for (; parms; parms = TREE_CHAIN (parms))
-if (DECL_NAME (parms))
+if (DECL_NAME (parms)
+&& TREE_TYPE (parms) != error_mark_node
+&& DECL_RTL_SET_P (parms)
+&& DECL_INCOMING_RTL (parms))
 {
 	const char *name = IDENTIFIER_POINTER (DECL_NAME (parms));
 	/* Report parms that live in registers during the function
 	   but were passed in memory.  */
 	      }
 	  }
 }
 }
-/* Output debug information for a global DECL.  Called from toplev.c
+/* Output early debug information for a global DECL.  Called from
-after compilation proper has finished.  */
+rest_of_decl_compilation during parsing.  */
 static void
-sdbout_global_decl (tree decl)
+sdbout_early_global_decl (tree decl ATTRIBUTE_UNUSED)
 {
-if (TREE_CODE (decl) == VAR_DECL
+/* NYI for non-dwarf.  */
-&& !DECL_EXTERNAL (decl)
+}
-&& DECL_RTL_SET_P (decl))
+/* Output late debug information for a global DECL after location
+information is available.  */
+static void
+sdbout_late_global_decl (tree decl)
+{
+if (VAR_P (decl) && !DECL_EXTERNAL (decl) && DECL_RTL_SET_P (decl))
 {
 /* The COFF linker can move initialized global vars to the end.
 	 And that can screw up the symbol ordering.  Defer those for
 	 sdbout_finish ().  */
 if (!DECL_INITIAL (decl) || !TREE_PUBLIC (decl))
 	sdbout_symbol (decl, 0);
 else
-	VEC_safe_push (tree, gc, deferred_global_decls, decl);
+	vec_safe_push (deferred_global_decls, decl);
 /* Output COFF information for non-global file-scope initialized
 	 variables.  */
 if (DECL_INITIAL (decl) && MEM_P (DECL_RTL (decl)))
 	sdbout_toplevel_data (decl);
 sdbout_finish (const char *main_filename ATTRIBUTE_UNUSED)
 {
 size_t i;
 tree decl;
-FOR_EACH_VEC_ELT (tree, deferred_global_decls, i, decl)
+FOR_EACH_VEC_SAFE_ELT (deferred_global_decls, i, decl)
 sdbout_symbol (decl, 0);
 }
 /* Describe the beginning of an internal block within a function.
 Also output descriptions of variables defined in this block.
 {
 tree decl = current_function_decl;
 MAKE_LINE_SAFE (line);
 /* The SCO compiler does not emit a separate block for the function level
-scope, so we avoid it here also.  However, mips ECOFF compilers do emit
+scope, so we avoid it here also.  */
-a separate block, so we retain it when MIPS_DEBUGGING_INFO is defined.  */
+PUT_SDB_BLOCK_START (line - sdb_begin_function_line);
-#ifndef MIPS_DEBUGGING_INFO
-if (n != 1)
-#endif
-PUT_SDB_BLOCK_START (line - sdb_begin_function_line);
 if (n == 1)
 {
 /* Include the outermost BLOCK's variables in block 1.  */
 do_block = BLOCK_NUMBER (DECL_INITIAL (decl));
 sdbout_end_block (unsigned int line, unsigned int n ATTRIBUTE_UNUSED)
 {
 MAKE_LINE_SAFE (line);
 /* The SCO compiler does not emit a separate block for the function level
-scope, so we avoid it here also.  However, mips ECOFF compilers do emit
+scope, so we avoid it here also.  */
-a separate block, so we retain it when MIPS_DEBUGGING_INFO is defined.  */
-#ifndef MIPS_DEBUGGING_INFO
 if (n != 1)
-#endif
+PUT_SDB_BLOCK_END (line - sdb_begin_function_line);
-PUT_SDB_BLOCK_END (line - sdb_begin_function_line);
 }
 /* Output a line number symbol entry for source file FILENAME and line
 number LINE.  */
 static void
-sdbout_source_line (unsigned int line, const char *filename ATTRIBUTE_UNUSED,
+sdbout_source_line (unsigned int line, unsigned int column ATTRIBUTE_UNUSED,
+		    const char *filename ATTRIBUTE_UNUSED,
 int discriminator ATTRIBUTE_UNUSED,
 bool is_stmt ATTRIBUTE_UNUSED)
 {
 /* COFF relative line numbers must be positive.  */
 if ((int) line > sdb_begin_function_line)
 sdbout_begin_function (tree decl ATTRIBUTE_UNUSED)
 {
 sdbout_symbol (current_function_decl, 0);
 }
-/* Called at beginning of function body (before or after prologue,
+/* Called at beginning of function body after prologue.  Record the
-depending on MIPS_DEBUGGING_INFO).  Record the function's starting
+function's starting line number, so we can output relative line numbers
-line number, so we can output relative line numbers for the other
+for the other lines.  Describe beginning of outermost block.  Also
-lines.  Describe beginning of outermost block.  Also describe the
+describe the parameter list.  */
-parameter list.  */
+static void
-#ifndef MIPS_DEBUGGING_INFO
+sdbout_begin_prologue (unsigned int line, unsigned int column ATTRIBUTE_UNUSED,
-static void
+		       const char *file ATTRIBUTE_UNUSED)
-sdbout_begin_prologue (unsigned int line, const char *file ATTRIBUTE_UNUSED)
 {
 sdbout_end_prologue (line, file);
 }
-#endif
 static void
 sdbout_end_prologue (unsigned int line, const char *file ATTRIBUTE_UNUSED)
 {
 sdb_begin_function_line = line - 1;
 /* Output sdb info for the given label.  Called only if LABEL_NAME (insn)
 is present.  */
 static void
-sdbout_label (rtx insn)
+sdbout_label (rtx_code_label *insn)
 {
 PUT_SDB_DEF (LABEL_NAME (insn));
 PUT_SDB_VAL (insn);
 PUT_SDB_SCL (C_LABEL);
 PUT_SDB_TYPE (T_NULL);
 static void
 sdbout_start_source_file (unsigned int line ATTRIBUTE_UNUSED,
 			  const char *filename ATTRIBUTE_UNUSED)
 {
-#ifdef MIPS_DEBUGGING_INFO
-struct sdb_file *n = XNEW (struct sdb_file);
-n->next = current_file;
-n->name = filename;
-current_file = n;
-output_file_directive (asm_out_file, filename);
-#endif
 }
 /* Revert to reading a previous source file.  */
 static void
 sdbout_end_source_file (unsigned int line ATTRIBUTE_UNUSED)
 {
-#ifdef MIPS_DEBUGGING_INFO
-struct sdb_file *next;
-next = current_file->next;
-free (current_file);
-current_file = next;
-output_file_directive (asm_out_file, current_file->name);
-#endif
 }
 /* Set up for SDB output at the start of compilation.  */
 static void
 sdbout_init (const char *input_file_name ATTRIBUTE_UNUSED)
 {
 tree t;
-#ifdef MIPS_DEBUGGING_INFO
+vec_alloc (deferred_global_decls, 12);
-current_file = XNEW (struct sdb_file);
-current_file->next = NULL;
-current_file->name = input_file_name;
-#endif
-deferred_global_decls = VEC_alloc (tree, gc, 12);
 /* Emit debug information which was queued by sdbout_symbol before
 we got here.  */
 sdbout_initialized = true;
 for (t = nreverse (preinit_symbols); t; t = TREE_CHAIN (t))
 sdbout_symbol (TREE_VALUE (t), 0);
 preinit_symbols = 0;
 }
-#endif /* SDB_DEBUGGING_INFO */
 #include "gt-sdbout.h"

Mercurial > hg > CbC > CbC_gcc

comparison gcc/sdbout.c @ 111:04ced10e8804