From 1dff614c85d6899e5442a721e03ae0924db542f0 Mon Sep 17 00:00:00 2001 From: neil Date: Thu, 12 Jul 2001 05:56:27 +0000 Subject: * Makefile.in (final.o): Depend on debug.h. * dbxout.c (dbxout_begin_block, dbxout_end_block): New. (dbx_debug_hooks): Add new hooks. (xcoff_debug_hooks): New. * debug.c (debug_nothing_file_int_int): New. (do_nothing_debug_hooks): Update. * debug.h (gcc_debug_hooks): New hooks begin_block and end_block. (debug_nothing_file_int_int): New. * dwarf2out.c (dwarf2out_begin_block, dwarf2out_end_block): Make static, update prototype. (dwarf2_debug_hooks): Update. * dwarf2out.h (dwarf2out_begin_block, dwarf2out_end_block): Remove. * dwarfout.c (dwarfout_begin_block, dwarfout_end_block): Make static, update prototype. (dwarf_debug_hooks): Update. * dwarfout.h (dwarfout_begin_block, dwarfout_end_block): Remove. * final.c: Include debug.h. (final_scan_insn): Use debug hooks when beginning and ending blocks. * sdbout.c (sdbout_begin_block, sdbout_end_block): Make static, update prototype. (sdb_debug_hooks): Update. * sdbout.h (sdbout_begin_block, sdbout_end_block): Remove. * toplev.c: Distinguish between xcoff and dbx. * f/lex.c (ffelex_file_pop_, ffelex_file_push_, ffelex_hash_): Call all debug hooks, not just dwarf ones. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@43959 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/f/lex.c | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) (limited to 'gcc/f') diff --git a/gcc/f/lex.c b/gcc/f/lex.c index 70f666aaf44..05e627bdc8b 100644 --- a/gcc/f/lex.c +++ b/gcc/f/lex.c @@ -857,8 +857,7 @@ ffelex_file_pop_ (const char *input_filename) input_file_stack = p->next; free (p); input_file_stack_tick++; - if (write_symbols == DWARF_DEBUG) - (*debug_hooks->end_source_file) (input_file_stack->line); + (*debug_hooks->end_source_file) (input_file_stack->line); } else error ("#-lines for entering and leaving files don't match"); @@ -883,8 +882,7 @@ ffelex_file_push_ (int old_lineno, const char *input_filename) input_file_stack = p; input_file_stack_tick++; - if (write_symbols == DWARF_DEBUG) - (*debug_hooks->start_source_file) (0, input_filename); + (*debug_hooks->start_source_file) (0, input_filename); /* Now that we've pushed or popped the input stack, update the name in the top element. */ @@ -1165,8 +1163,7 @@ ffelex_hash_ (FILE *finput) c = ffelex_get_directive_line_ (&text, finput); - if ((debug_info_level == DINFO_LEVEL_VERBOSE) - && (write_symbols == DWARF_DEBUG)) + if (debug_info_level == DINFO_LEVEL_VERBOSE) (*debug_hooks->define) (lineno, text); goto skipline; @@ -1185,8 +1182,7 @@ ffelex_hash_ (FILE *finput) c = ffelex_get_directive_line_ (&text, finput); - if ((debug_info_level == DINFO_LEVEL_VERBOSE) - && (write_symbols == DWARF_DEBUG)) + if (debug_info_level == DINFO_LEVEL_VERBOSE) (*debug_hooks->undef) (lineno, text); goto skipline; -- cgit v1.2.1