From a2f0e34d9ecd47343f8cdcc78841de15a7e5b2c0 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Tobias=20Schl=C3=BCter?= Date: Fri, 14 May 2004 16:07:13 +0200 Subject: [PATCH] * match.c (gfc_match): Eliminate dead code. From-SVN: r81846 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/match.c | 9 --------- 2 files changed, 4 insertions(+), 9 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index a57c207..bae4efd 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,9 @@ 2004-05-14 Tobias Schlueter + * match.c (gfc_match): Eliminate dead code. + +2004-05-14 Tobias Schlueter + * parse.c (gfc_statement_next_fixed): (Change from Andy's tree) Detect bad continuation line in fixed form sources. diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index fc5afbf..c13e057 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -764,13 +764,6 @@ not_yes: matches++; break; /* Skip */ - case 'I': - case 'L': - case 'C': - if (*p++ == 'e') - goto undo_expr; - break; - /* Matches that don't have to be undone */ case 'o': case 'l': @@ -780,9 +773,7 @@ not_yes: break; case 'e': - case 'E': case 'v': - undo_expr: vp = va_arg (argp, void **); gfc_free_expr (*vp); *vp = NULL; -- 2.7.4