a64f5186dd
PR fortran/29635 PR fortran/23057 * debug.h (struct gcc_debug_hooks): Add NAME and CHILD arguments to imported_module_or_decl. (debug_nothing_tree_tree): Removed. (debug_nothing_tree_tree_tree_bool): New prototype. * debug.c (do_nothing_debug_hooks): Adjust. (debug_nothing_tree_tree): Removed. (debug_nothing_tree_tree_tree_bool): New function. * dwarf2out.c (is_symbol_die): Handle DW_TAG_module. (gen_variable_die): Put all common vars for the same COMMON block under one DW_TAG_common_block. (declare_in_namespace): Return new context_die, for Fortran return the module DIE instead of adding extra declarations into the namespace. (gen_type_die_with_usage): Adjust declare_in_namespace caller. (gen_namespace_die): If is_fortran (), generate DW_TAG_module instead of DW_TAG_namespace. If DECL_EXTERNAL is set, add DW_AT_declaration. (dwarf2out_global_decl): Don't skip Fortran global vars. (gen_decl_die): Likewise. Adjust declare_in_namespace callers. (dwarf2out_imported_module_or_decl): Add NAME and CHILD arguments. If NAME is non-NULL, add DW_AT_name. If CHILD is non-NULL, put DW_TAG_imported_declaration as child of previous DW_TAG_imported_module. * dbxout.c (dbx_debug_hooks, xcoff_debug_hooks): Adjust. * sdbout.c (sdb_debug_hooks): Likewise. * vmsdbgout.c (vmsdbg_debug_hooks): Likewise. * name-lookup.c (do_using_directive, cp_emit_debug_info_for_using): Adjust debug_hooks->imported_module_or_decl callers. * f95-lang.c (gfc_init_ts): New function. (LANG_HOOKS_INIT_TS): Define. * gfortran.h (gfc_use_rename): New type, moved from module.c. (gfc_get_use_rename): New macro, moved from module.c. (gfc_use_list): New type. (gfc_get_use_list): New macro. (gfc_namespace): Add use_stmts field. (gfc_free_use_stmts): New prototype. * Make-lang.in (fortran/trans-decl.o): Depend on debug.h. * module.c (gfc_use_rename, gfc_get_use_rename): Moved to gfortran.h. (gfc_use_module): Chain the USE statement info to ns->use_stmts. (gfc_free_use_stmts): New function. * symbol.c (gfc_free_namespace): Call gfc_free_use_stmts. * trans.h (struct module_htab_entry): New type. (gfc_find_module, gfc_module_add_decl): New functions. * trans.c (gfc_generate_module_code): Create NAMESPACE_DECL for the module, adjust DECL_CONTEXTs of module procedures and call gfc_module_add_decl for them. * trans-common.c (build_common_decl): Set DECL_IGNORED_P on the common variable. (create_common): Set DECL_IGNORED_P for use associated vars. * trans-decl.c: Include debug.h. (gfc_get_symbol_decl): Set DECL_IGNORED_P on use_assoc vars from modules. (build_function_decl): Allow current_function_decl's context to be a NAMESPACE_DECL. (module_htab, cur_module): New variables. (module_htab_do_hash, module_htab_eq, module_htab_decls_hash, module_htab_decls_eq, gfc_find_module, gfc_module_add_decl): New functions. (gfc_create_module_variable): Adjust DECL_CONTEXTs of module variables and types and call gfc_module_add_decl for them. (gfc_generate_module_vars): Temporarily set cur_module. (gfc_trans_use_stmts): New function. (gfc_generate_function_code): Call it. (gfc_generate_block_data): Set DECL_IGNORED_P on decl. * trans-types.c (gfc_get_derived_type): Adjust DECL_CONTEXT and TYPE_CONTEXT of module derived types. From-SVN: r139773
177 lines
7.0 KiB
C
177 lines
7.0 KiB
C
/* Debug hooks for GCC.
|
|
Copyright (C) 2001, 2002, 2003, 2004, 2005, 2007 Free Software Foundation, Inc.
|
|
|
|
This program 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 Software Foundation; either version 3, or (at your option) any
|
|
later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; see the file COPYING3. If not see
|
|
<http://www.gnu.org/licenses/>. */
|
|
|
|
#ifndef GCC_DEBUG_H
|
|
#define GCC_DEBUG_H
|
|
|
|
/* This structure contains hooks for the debug information output
|
|
functions, accessed through the global instance debug_hooks set in
|
|
toplev.c according to command line options. */
|
|
struct gcc_debug_hooks
|
|
{
|
|
/* Initialize debug output. MAIN_FILENAME is the name of the main
|
|
input file. */
|
|
void (* init) (const char *main_filename);
|
|
|
|
/* Output debug symbols. */
|
|
void (* finish) (const char *main_filename);
|
|
|
|
/* Macro defined on line LINE with name and expansion TEXT. */
|
|
void (* define) (unsigned int line, const char *text);
|
|
|
|
/* MACRO undefined on line LINE. */
|
|
void (* undef) (unsigned int line, const char *macro);
|
|
|
|
/* Record the beginning of a new source file FILE from LINE number
|
|
in the previous one. */
|
|
void (* start_source_file) (unsigned int line, const char *file);
|
|
|
|
/* Record the resumption of a source file. LINE is the line number
|
|
in the source file we are returning to. */
|
|
void (* end_source_file) (unsigned int line);
|
|
|
|
/* Record the beginning of block N, counting from 1 and not
|
|
including the function-scope block, at LINE. */
|
|
void (* begin_block) (unsigned int line, unsigned int n);
|
|
|
|
/* Record the end of a block. Arguments as for begin_block. */
|
|
void (* end_block) (unsigned int line, unsigned int n);
|
|
|
|
/* Returns nonzero if it is appropriate not to emit any debugging
|
|
information for BLOCK, because it doesn't contain any
|
|
instructions. This may not be the case for blocks containing
|
|
nested functions, since we may actually call such a function even
|
|
though the BLOCK information is messed up. Defaults to true. */
|
|
bool (* ignore_block) (const_tree);
|
|
|
|
/* Record a source file location at (FILE, LINE). */
|
|
void (* source_line) (unsigned int line, const char *file);
|
|
|
|
/* Called at start of prologue code. LINE is the first line in the
|
|
function. This has been given the same prototype as source_line,
|
|
so that the source_line hook can be substituted if appropriate. */
|
|
void (* begin_prologue) (unsigned int line, const char *file);
|
|
|
|
/* Called at end of prologue code. LINE is the first line in the
|
|
function. */
|
|
void (* end_prologue) (unsigned int line, const char *file);
|
|
|
|
/* Record end of epilogue code. */
|
|
void (* end_epilogue) (unsigned int line, const char *file);
|
|
|
|
/* Called at start of function DECL, before it is declared. */
|
|
void (* begin_function) (tree decl);
|
|
|
|
/* Record end of function. LINE is highest line number in function. */
|
|
void (* end_function) (unsigned int line);
|
|
|
|
/* Debug information for a function DECL. This might include the
|
|
function name (a symbol), its parameters, and the block that
|
|
makes up the function's body, and the local variables of the
|
|
function. */
|
|
void (* function_decl) (tree decl);
|
|
|
|
/* Debug information for a global DECL. Called from toplev.c after
|
|
compilation proper has finished. */
|
|
void (* global_decl) (tree decl);
|
|
|
|
/* Debug information for a type DECL. Called from toplev.c after
|
|
compilation proper, also from various language front ends to
|
|
record built-in types. The second argument is properly a
|
|
boolean, which indicates whether or not the type is a "local"
|
|
type as determined by the language. (It's not a boolean for
|
|
legacy reasons.) */
|
|
void (* type_decl) (tree decl, int local);
|
|
|
|
/* Debug information for imported modules and declarations. */
|
|
void (* imported_module_or_decl) (tree decl, tree name,
|
|
tree context, bool child);
|
|
|
|
/* DECL is an inline function, whose body is present, but which is
|
|
not being output at this point. */
|
|
void (* deferred_inline_function) (tree decl);
|
|
|
|
/* DECL is an inline function which is about to be emitted out of
|
|
line. The hook is useful to, e.g., emit abstract debug info for
|
|
the inline before it gets mangled by optimization. */
|
|
void (* outlining_inline_function) (tree decl);
|
|
|
|
/* Called from final_scan_insn for any CODE_LABEL insn whose
|
|
LABEL_NAME is non-null. */
|
|
void (* label) (rtx);
|
|
|
|
/* Called after the start and before the end of writing a PCH file.
|
|
The parameter is 0 if after the start, 1 if before the end. */
|
|
void (* handle_pch) (unsigned int);
|
|
|
|
/* Called from final_scan_insn for any NOTE_INSN_VAR_LOCATION note. */
|
|
void (* var_location) (rtx);
|
|
|
|
/* Called from final_scan_insn if there is a switch between hot and cold
|
|
text sections. */
|
|
void (* switch_text_section) (void);
|
|
|
|
/* This is 1 if the debug writer wants to see start and end commands for the
|
|
main source files, and 0 otherwise. */
|
|
int start_end_main_source_file;
|
|
};
|
|
|
|
extern const struct gcc_debug_hooks *debug_hooks;
|
|
|
|
/* The do-nothing hooks. */
|
|
extern void debug_nothing_void (void);
|
|
extern void debug_nothing_charstar (const char *);
|
|
extern void debug_nothing_int_charstar (unsigned int, const char *);
|
|
extern void debug_nothing_int (unsigned int);
|
|
extern void debug_nothing_int_int (unsigned int, unsigned int);
|
|
extern void debug_nothing_tree (tree);
|
|
extern void debug_nothing_tree_int (tree, int);
|
|
extern void debug_nothing_tree_tree_tree_bool (tree, tree, tree, bool);
|
|
extern bool debug_true_const_tree (const_tree);
|
|
extern void debug_nothing_rtx (rtx);
|
|
|
|
/* Hooks for various debug formats. */
|
|
extern const struct gcc_debug_hooks do_nothing_debug_hooks;
|
|
extern const struct gcc_debug_hooks dbx_debug_hooks;
|
|
extern const struct gcc_debug_hooks sdb_debug_hooks;
|
|
extern const struct gcc_debug_hooks xcoff_debug_hooks;
|
|
extern const struct gcc_debug_hooks dwarf2_debug_hooks;
|
|
extern const struct gcc_debug_hooks vmsdbg_debug_hooks;
|
|
|
|
/* Dwarf2 frame information. */
|
|
|
|
extern void dwarf2out_begin_prologue (unsigned int, const char *);
|
|
extern void dwarf2out_end_epilogue (unsigned int, const char *);
|
|
extern void dwarf2out_frame_init (void);
|
|
extern void dwarf2out_frame_finish (void);
|
|
/* Decide whether we want to emit frame unwind information for the current
|
|
translation unit. */
|
|
extern int dwarf2out_do_frame (void);
|
|
extern int dwarf2out_do_cfi_asm (void);
|
|
extern void dwarf2out_switch_text_section (void);
|
|
|
|
extern void debug_flush_symbol_queue (void);
|
|
extern void debug_queue_symbol (tree);
|
|
extern void debug_free_queue (void);
|
|
extern int debug_nesting;
|
|
extern int symbol_queue_index;
|
|
|
|
const char *remap_debug_filename (const char *);
|
|
void add_debug_prefix_map (const char *);
|
|
|
|
#endif /* !GCC_DEBUG_H */
|