diff options
| author | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-12-05 19:50:56 +0000 |
|---|---|---|
| committer | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-12-05 19:50:56 +0000 |
| commit | 68685205020781b84a8bccca470b36443e963c08 (patch) | |
| tree | cab5c222f0441c84dd8b90bf0301cd07c43d705d /gcc/fortran/error.c | |
| parent | 750ad79f7c640ba938f90c8d58e99a7b08b8946b (diff) | |
| download | gcc-68685205020781b84a8bccca470b36443e963c08.tar.gz | |
PR debug/33739
* gfortran.h (gfc_file): Remove included_by field, add sibling and
down.
(gfc_start_source_files, gfc_end_source_files): New prototypes.
* parse.c (gfc_parse_file): Call gfc_start_source_files and
gfc_end_source_files instead of calling the debugging hooks directly.
* error.c (show_locus): Use up field instead of included_by.
* scanner.c (change_file, gfc_start_source_files,
gfc_end_source_files): New functions.
(gfc_advance_line): Call change_file instead of calling debug hooks
directly.
(get_file): Set up rather than included_by. Initialize down and
sibling.
(preprocessor_line, load_file): Don't set up field here.
* gfortran.dg/debug_2.f: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130629 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/error.c')
| -rw-r--r-- | gcc/fortran/error.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/error.c b/gcc/fortran/error.c index add23ce0fb3..e25a4286b24 100644 --- a/gcc/fortran/error.c +++ b/gcc/fortran/error.c @@ -207,7 +207,7 @@ show_locus (locus *loc, int c1, int c2) { i = f->inclusion_line; - f = f->included_by; + f = f->up; if (f == NULL) break; error_printf (" Included at %s:%d:", f->filename, i); |