diff options
author | Neil Booth <neil@daikokuya.demon.co.uk> | 2001-07-11 20:51:46 +0000 |
---|---|---|
committer | Neil Booth <neil@gcc.gnu.org> | 2001-07-11 20:51:46 +0000 |
commit | 7f905405bc326d31fe7c0b51f435f29cd063ae9f (patch) | |
tree | 8208475fab02ce7a5ccefba302810842e545181a /gcc/f/lex.c | |
parent | ba4828e00559dfebd57b51b78696ce777a8da279 (diff) | |
download | gcc-7f905405bc326d31fe7c0b51f435f29cd063ae9f.zip gcc-7f905405bc326d31fe7c0b51f435f29cd063ae9f.tar.gz gcc-7f905405bc326d31fe7c0b51f435f29cd063ae9f.tar.bz2 |
Makefile.in (c-lex.o): Wrap long lines.
* Makefile.in (c-lex.o): Wrap long lines. Depend on debug.h.
* c-lex.c (cb_file_change, cb_define, cb_undef): Use debug
hooks directly.
* dbxout.c (dbx_debug_hooks): Add new hooks.
(dbxout_start_new_source_file): Rename dbxout_start_source_file,
make static.
(dbxout_resume_previous_source_file): Rename dbxout_end_source_file,
make static.
* dbxout.h (dbxout_start_new_source_file,
dbxout_resume_previous_source_file): Delete.
* debug.c (do_nothing_debug_hooks): Add new hooks.
(debug_nothing_init_finish): Rename debug_nothing_file_charstar.
(debug_nothing_int_charstar, debug_nothing_int): New.
* debug.h (gcc_debug_hooks): New hooks define, undef,
start_source_file and end_source_file.
(debug_nothing_init_finish): Rename debug_nothing_file_charstar.
(debug_nothing_int_charstar, debug_nothing_int): New.
* dwarf2out.c (dwarf2_debug_hooks): Add new hooks.
(dwarf2out_start_source_file, dwarf2out_end_source_file,
dwarf2out_define, dwarf2out_undef): Make static.
* dwarf2out.h (dwarf2out_start_source_file, dwarf2out_end_source_file,
dwarf2out_define, dwarf2out_undef): Remove.
* dwarfout.c (dwarf_debug_hooks): Add new hooks.
(dwarfout_start_source_file, dwarfout_end_source_file,
dwarfout_define, dwarfout_undef): Make static.
(dwarfout_start_source_file_check,
dwarfout_end_source_file_check): New.
(dwarfout_define, dwarfout_finish): Update.
* dwarfout.h (dwarfout_start_new_source_file,
dwarfout_resume_previous_source_file, dwarfout_define,
dwarfout_undef): Remove.
* sdbout.c (sdb_debug_hooks): Add new hooks.
(sdbout_start_new_source_file): Rename sdbout_start_source_file,
make static.
(sdbout_resume_previous_source_file): Rename sdbout_end_source_file,
make static, take an arg.
* sdbout.h (sdbout_start_new_source_file,
sdbout_resume_previous_source_file): Delete.
* toplev.c (debug_start_source_file, debug_end_source_file,
debug_define, debug_undef): Delete.
* toplev.h (debug_start_source_file, debug_end_source_file,
debug_define, debug_undef): Delete.
* java/jcf-parse.c: Include debug.h.
(parse_class_file): Update to use debug hooks directly.
* java/Make-lang.in (jcf-parse.o): Depend on debug.h.
From-SVN: r43952
Diffstat (limited to 'gcc/f/lex.c')
-rw-r--r-- | gcc/f/lex.c | 28 |
1 files changed, 8 insertions, 20 deletions
diff --git a/gcc/f/lex.c b/gcc/f/lex.c index d5aaa15..70f666a 100644 --- a/gcc/f/lex.c +++ b/gcc/f/lex.c @@ -26,6 +26,7 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA #include "lex.h" #include "malloc.h" #include "src.h" +#include "debug.h" #if FFECOM_targetCURRENT == FFECOM_targetGCC #include "flags.h" #include "input.h" @@ -34,10 +35,6 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA #include "ggc.h" #endif -#ifdef DWARF_DEBUGGING_INFO -#include "dwarfout.h" -#endif - static void ffelex_append_to_token_ (char c); static int ffelex_backslash_ (int c, ffewhereColumnNumber col); static void ffelex_bad_1_ (ffebad errnum, ffewhereLineNumber ln0, @@ -860,11 +857,8 @@ ffelex_file_pop_ (const char *input_filename) input_file_stack = p->next; free (p); input_file_stack_tick++; -#ifdef DWARF_DEBUGGING_INFO - if (debug_info_level == DINFO_LEVEL_VERBOSE - && write_symbols == DWARF_DEBUG) - dwarfout_resume_previous_source_file (input_file_stack->line); -#endif /* DWARF_DEBUGGING_INFO */ + if (write_symbols == DWARF_DEBUG) + (*debug_hooks->end_source_file) (input_file_stack->line); } else error ("#-lines for entering and leaving files don't match"); @@ -888,11 +882,9 @@ ffelex_file_push_ (int old_lineno, const char *input_filename) p->name = input_filename; input_file_stack = p; input_file_stack_tick++; -#ifdef DWARF_DEBUGGING_INFO - if (debug_info_level == DINFO_LEVEL_VERBOSE - && write_symbols == DWARF_DEBUG) - dwarfout_start_new_source_file (input_filename); -#endif /* DWARF_DEBUGGING_INFO */ + + if (write_symbols == DWARF_DEBUG) + (*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. */ @@ -1173,11 +1165,9 @@ ffelex_hash_ (FILE *finput) c = ffelex_get_directive_line_ (&text, finput); -#ifdef DWARF_DEBUGGING_INFO if ((debug_info_level == DINFO_LEVEL_VERBOSE) && (write_symbols == DWARF_DEBUG)) - dwarfout_define (lineno, text); -#endif /* DWARF_DEBUGGING_INFO */ + (*debug_hooks->define) (lineno, text); goto skipline; } @@ -1195,11 +1185,9 @@ ffelex_hash_ (FILE *finput) c = ffelex_get_directive_line_ (&text, finput); -#ifdef DWARF_DEBUGGING_INFO if ((debug_info_level == DINFO_LEVEL_VERBOSE) && (write_symbols == DWARF_DEBUG)) - dwarfout_undef (lineno, text); -#endif /* DWARF_DEBUGGING_INFO */ + (*debug_hooks->undef) (lineno, text); goto skipline; } |