diff options
| author | Andreas Jaeger <aj@suse.de> | 2003-06-01 09:21:02 +0200 |
|---|---|---|
| committer | Andreas Jaeger <aj@gcc.gnu.org> | 2003-06-01 09:21:02 +0200 |
| commit | e90c9dc046dbe66bb9397f6a58e054939b048561 (patch) | |
| tree | 75239b620a6b05698b5b8fcdabad40901ed67315 /gcc/f/expr.c | |
| parent | 1174a658cf6ec539822c46b0b40b6a68940d1552 (diff) | |
| download | gcc-e90c9dc046dbe66bb9397f6a58e054939b048561.zip gcc-e90c9dc046dbe66bb9397f6a58e054939b048561.tar.gz gcc-e90c9dc046dbe66bb9397f6a58e054939b048561.tar.bz2 | |
lex.c (ffelex_file_fixed): Remove usage of REDUCE_CARD_SIZE_AFTER_BIGGY.
* lex.c (ffelex_file_fixed): Remove usage of
REDUCE_CARD_SIZE_AFTER_BIGGY.
* expr.c (ffeexpr_exprstack_push_operand_): Remove code depenend
on WEIRD_NONFORTRAN_RULES.
* com.c (ffecom_arg_ptr_to_expr): Remove
PASS_HOLLERITH_BY_DESCRIPTOR dependend code.
(ffecom_const_expr): Remove usage of NEWCOMMON.
(ffecom_expand_let_stmt): Remove MOVE_EXPR.
From-SVN: r67287
Diffstat (limited to 'gcc/f/expr.c')
| -rw-r--r-- | gcc/f/expr.c | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/gcc/f/expr.c b/gcc/f/expr.c index 4824be7..077da3e 100644 --- a/gcc/f/expr.c +++ b/gcc/f/expr.c @@ -1,5 +1,5 @@ /* expr.c -- Implementation File (module.c template V1.0) - Copyright (C) 1995, 1996, 1997, 1998, 2001, 2002 + Copyright (C) 1995, 1996, 1997, 1998, 2001, 2002, 2003 Free Software Foundation, Inc. Contributed by James Craig Burley. @@ -9577,15 +9577,6 @@ static void ffeexpr_exprstack_push_operand_ (ffeexprExpr_ e) { ffeexpr_exprstack_push_ (e); -#ifdef WEIRD_NONFORTRAN_RULES - if ((ffeexpr_stack_->exprstack != NULL) - && (ffeexpr_stack_->exprstack->expr->type == FFEEXPR_exprtypeBINARY_) - && (ffeexpr_stack_->exprstack->expr->u.operator.prec - == FFEEXPR_operatorprecedenceHIGHEST_) - && (ffeexpr_stack_->exprstack->expr->u.operator.as - == FFEEXPR_operatorassociativityL2R_)) - ffeexpr_reduce_ (); -#endif } /* ffeexpr_exprstack_push_unary_ -- Push a unary operator onto the stack @@ -11519,7 +11510,7 @@ ffeexpr_reduced_ugly2log_ (ffebld reduced, ffeexprExpr_ l, ffeexprExpr_ op, FFETARGET_charactersizeNONE, FFEEXPR_contextLET)); } - + return reduced; } |