/* Output sdb-format symbol table information from GNU compiler.
Copyright (C) 1988, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
- 2000, 2001, 2002, 2003, 2004, 2005, 2007, 2008, 2009
+ 2000, 2001, 2002, 2003, 2004, 2005, 2007, 2008, 2009, 2010, 2011, 2012
Free Software Foundation, Inc.
This file is part of GCC.
#include "debug.h"
#include "tree.h"
#include "ggc.h"
-#include "varray.h"
+#include "vec.h"
static GTY(()) tree anonymous_types;
/* Declarations whose debug info was deferred till end of compilation. */
-static GTY(()) varray_type deferred_global_decls;
+static GTY(()) VEC(tree,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
#include "insn-config.h"
#include "reload.h"
#include "output.h"
-#include "toplev.h"
+#include "diagnostic-core.h"
#include "tm_p.h"
#include "gsyms.h"
#include "langhooks.h"
static void sdbout_source_line (unsigned int, const char *, int, bool);
static void sdbout_end_epilogue (unsigned int, const char *);
static void sdbout_global_decl (tree);
-#ifndef MIPS_DEBUGGING_INFO
static void sdbout_begin_prologue (unsigned int, const char *);
-#endif
static void sdbout_end_prologue (unsigned int, const char *);
static void sdbout_begin_function (tree);
static void sdbout_end_function (unsigned int);
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_void, /* assembly_start */
debug_nothing_int_charstar, /* define */
debug_nothing_int_charstar, /* undef */
sdbout_start_source_file, /* start_source_file */
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_rtx, /* var_location */
debug_nothing_void, /* switch_text_section */
debug_nothing_tree_tree, /* set_name */
- 0 /* start_end_main_source_file */
+ 0, /* start_end_main_source_file */
+ TYPE_SYMTAB_IS_POINTER /* tree_type_symtab_field */
};
/* Return a unique string to name an anonymous type. */
switch (TREE_CODE (type))
{
case VOID_TYPE:
+ case NULLPTR_TYPE:
return T_VOID;
case BOOLEAN_TYPE:
case INTEGER_TYPE:
else if (MEM_P (value)
&& ((GET_CODE (XEXP (value, 0)) == PLUS
&& REG_P (XEXP (XEXP (value, 0), 0))
- && GET_CODE (XEXP (XEXP (value, 0), 1)) == CONST_INT)
+ && CONST_INT_P (XEXP (XEXP (value, 0), 1)))
/* This is for variables which are at offset zero from
the frame pointer. This happens on the Alpha.
Non-frame pointer registers are excluded above. */
{
tree child_type = BINFO_TYPE (child);
tree child_type_name;
-
+
if (TYPE_NAME (child_type) == 0)
continue;
if (TREE_CODE (TYPE_NAME (child_type)) == IDENTIFIER_NODE)
PUT_SDB_SIZE (size);
PUT_SDB_ENDEF;
break;
-
- default:
- break;
}
+
+ default:
+ break;
}
}
If that is not true, we produce meaningless results,
but do not crash. */
if (GET_CODE (addr) == PLUS
- && GET_CODE (XEXP (addr, 1)) == CONST_INT)
+ && CONST_INT_P (XEXP (addr, 1)))
current_sym_value = INTVAL (XEXP (addr, 1));
else
current_sym_value = 0;
/* Report parms that live in memory but not where they were passed. */
else 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
+ && CONST_INT_P (XEXP (XEXP (DECL_RTL (parms), 0), 1))
&& PARM_PASSED_IN_MEMORY (parms)
&& ! rtx_equal_p (DECL_RTL (parms), DECL_INCOMING_RTL (parms)))
{
if (!DECL_INITIAL (decl) || !TREE_PUBLIC (decl))
sdbout_symbol (decl, 0);
else
- VARRAY_PUSH_TREE (deferred_global_decls, decl);
+ VEC_safe_push (tree, gc, deferred_global_decls, decl);
/* Output COFF information for non-global file-scope initialized
variables. */
sdbout_finish (const char *main_filename ATTRIBUTE_UNUSED)
{
size_t i;
+ tree decl;
- for (i = 0; i < VARRAY_ACTIVE_SIZE (deferred_global_decls); i++)
- sdbout_symbol (VARRAY_TREE (deferred_global_decls, i), 0);
+ FOR_EACH_VEC_ELT (tree, deferred_global_decls, i, decl)
+ sdbout_symbol (decl, 0);
}
/* Describe the beginning of an internal block within a function.
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
- a separate block, so we retain it when MIPS_DEBUGGING_INFO is defined. */
-#ifndef MIPS_DEBUGGING_INFO
- if (n != 1)
-#endif
- PUT_SDB_BLOCK_START (line - sdb_begin_function_line);
+ scope, so we avoid it here also. */
+ PUT_SDB_BLOCK_START (line - sdb_begin_function_line);
if (n == 1)
{
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
- a separate block, so we retain it when MIPS_DEBUGGING_INFO is defined. */
-#ifndef MIPS_DEBUGGING_INFO
+ scope, so we avoid it here also. */
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
sdbout_symbol (current_function_decl, 0);
}
-/* Called at beginning of function body (before or after prologue,
- depending on MIPS_DEBUGGING_INFO). Record the function's starting
- line number, so we can output relative line numbers for the other
- lines. Describe beginning of outermost block. Also describe the
- parameter list. */
+/* Called at beginning of function body after prologue. Record the
+ function's starting line number, so we can output relative line numbers
+ for the other lines. Describe beginning of outermost block. Also
+ describe the parameter list. */
-#ifndef MIPS_DEBUGGING_INFO
static void
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)
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. */
{
tree t;
-#ifdef MIPS_DEBUGGING_INFO
- current_file = XNEW (struct sdb_file);
- current_file->next = NULL;
- current_file->name = input_file_name;
-#endif
-
- VARRAY_TREE_INIT (deferred_global_decls, 12, "deferred_global_decls");
+ deferred_global_decls = VEC_alloc (tree, gc, 12);
/* Emit debug information which was queued by sdbout_symbol before
we got here. */
preinit_symbols = 0;
}
-#else /* SDB_DEBUGGING_INFO */
-
-/* This should never be used, but its address is needed for comparisons. */
-const struct gcc_debug_hooks sdb_debug_hooks =
-{
- 0, /* init */
- 0, /* finish */
- 0, /* define */
- 0, /* undef */
- 0, /* start_source_file */
- 0, /* end_source_file */
- 0, /* begin_block */
- 0, /* end_block */
- 0, /* ignore_block */
- 0, /* source_line */
- 0, /* begin_prologue */
- 0, /* end_prologue */
- 0, /* end_epilogue */
- 0, /* begin_function */
- 0, /* end_function */
- 0, /* function_decl */
- 0, /* global_decl */
- 0, /* type_decl */
- 0, /* imported_module_or_decl */
- 0, /* deferred_inline_function */
- 0, /* outlining_inline_function */
- 0, /* label */
- 0, /* handle_pch */
- 0, /* var_location */
- 0, /* switch_text_section */
- 0, /* set_name */
- 0 /* start_end_main_source_file */
-};
-
-
#endif /* SDB_DEBUGGING_INFO */
#include "gt-sdbout.h"