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
114 lines
3.1 KiB
C
114 lines
3.1 KiB
C
/* Do-nothing 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/>. */
|
|
|
|
#include "config.h"
|
|
#include "system.h"
|
|
#include "coretypes.h"
|
|
#include "tm.h"
|
|
#include "debug.h"
|
|
|
|
/* The do-nothing debug hooks. */
|
|
const struct gcc_debug_hooks do_nothing_debug_hooks =
|
|
{
|
|
debug_nothing_charstar,
|
|
debug_nothing_charstar,
|
|
debug_nothing_int_charstar,
|
|
debug_nothing_int_charstar,
|
|
debug_nothing_int_charstar,
|
|
debug_nothing_int,
|
|
debug_nothing_int_int, /* begin_block */
|
|
debug_nothing_int_int, /* end_block */
|
|
debug_true_const_tree, /* ignore_block */
|
|
debug_nothing_int_charstar, /* source_line */
|
|
debug_nothing_int_charstar, /* begin_prologue */
|
|
debug_nothing_int_charstar, /* end_prologue */
|
|
debug_nothing_int_charstar, /* end_epilogue */
|
|
debug_nothing_tree, /* begin_function */
|
|
debug_nothing_int, /* end_function */
|
|
debug_nothing_tree, /* function_decl */
|
|
debug_nothing_tree, /* global_decl */
|
|
debug_nothing_tree_int, /* type_decl */
|
|
debug_nothing_tree_tree_tree_bool, /* imported_module_or_decl */
|
|
debug_nothing_tree, /* deferred_inline_function */
|
|
debug_nothing_tree, /* outlining_inline_function */
|
|
debug_nothing_rtx, /* label */
|
|
debug_nothing_int, /* handle_pch */
|
|
debug_nothing_rtx, /* var_location */
|
|
debug_nothing_void, /* switch_text_section */
|
|
0 /* start_end_main_source_file */
|
|
};
|
|
|
|
/* This file contains implementations of each debug hook that do
|
|
nothing. */
|
|
|
|
void
|
|
debug_nothing_void (void)
|
|
{
|
|
}
|
|
|
|
void
|
|
debug_nothing_tree (tree decl ATTRIBUTE_UNUSED)
|
|
{
|
|
}
|
|
|
|
void
|
|
debug_nothing_tree_tree_tree_bool (tree t1 ATTRIBUTE_UNUSED,
|
|
tree t2 ATTRIBUTE_UNUSED,
|
|
tree t3 ATTRIBUTE_UNUSED,
|
|
bool b1 ATTRIBUTE_UNUSED)
|
|
{
|
|
}
|
|
|
|
bool
|
|
debug_true_const_tree (const_tree block ATTRIBUTE_UNUSED)
|
|
{
|
|
return true;
|
|
}
|
|
|
|
void
|
|
debug_nothing_rtx (rtx insn ATTRIBUTE_UNUSED)
|
|
{
|
|
}
|
|
|
|
void
|
|
debug_nothing_charstar (const char *main_filename ATTRIBUTE_UNUSED)
|
|
{
|
|
}
|
|
|
|
void
|
|
debug_nothing_int_charstar (unsigned int line ATTRIBUTE_UNUSED,
|
|
const char *text ATTRIBUTE_UNUSED)
|
|
{
|
|
}
|
|
|
|
void
|
|
debug_nothing_int (unsigned int line ATTRIBUTE_UNUSED)
|
|
{
|
|
}
|
|
|
|
void
|
|
debug_nothing_int_int (unsigned int line ATTRIBUTE_UNUSED,
|
|
unsigned int n ATTRIBUTE_UNUSED)
|
|
{
|
|
}
|
|
|
|
void
|
|
debug_nothing_tree_int (tree decl ATTRIBUTE_UNUSED,
|
|
int local ATTRIBUTE_UNUSED)
|
|
{
|
|
}
|