diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-09-24 20:24:11 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-09-24 20:24:11 +0000 |
| commit | 7b7bdf67e021444850352aebe14b288aca4c29c7 (patch) | |
| tree | a958df7338069ae35548c9829c1e33474fb581be /gcc/fortran/parse.c | |
| parent | 06d20fa91b82080984cedf14c7f06b55f646be8b (diff) | |
| download | gcc-7b7bdf67e021444850352aebe14b288aca4c29c7.zip gcc-7b7bdf67e021444850352aebe14b288aca4c29c7.tar.gz gcc-7b7bdf67e021444850352aebe14b288aca4c29c7.tar.bz2 | |
re PR fortran/33538 (bootstrap break in fortran on *-apple-darwin r128671)
PR fortran/33538
* scanner.c, parse.c, gfortran.h: Revert revision 128671.
From-SVN: r128724
Diffstat (limited to 'gcc/fortran/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index 9fd4375..a6672f4 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -25,7 +25,6 @@ along with GCC; see the file COPYING3. If not see #include "gfortran.h" #include "match.h" #include "parse.h" -#include "debug.h" /* Current statement label. Zero means no statement label. Because new_st can get wiped during statement matching, we have to keep it separate. */ @@ -674,9 +673,6 @@ next_statement (void) break; } - if (gfc_define_undef_line ()) - continue; - st = (gfc_current_form == FORM_FIXED) ? next_fixed () : next_free (); if (st != ST_NONE) @@ -3223,11 +3219,6 @@ gfc_parse_file (void) gfc_statement st; locus prog_locus; - /* If the debugger wants the name of the main source file, - we give it. */ - if (debug_hooks->start_end_main_source_file) - (*debug_hooks->start_source_file) (0, gfc_source_file); - top.state = COMP_NONE; top.sym = NULL; top.previous = NULL; @@ -3338,9 +3329,6 @@ loop: goto loop; done: - if (debug_hooks->start_end_main_source_file) - (*debug_hooks->end_source_file) (0); - return SUCCESS; duplicate_main: |