This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[Janitor] f/*.c cleanup
- From: Andreas Jaeger <aj at suse dot de>
- To: gcc-patches at gcc dot gnu dot org
- Cc: Toon Moene <moene at knmi dot nl>
- Date: Sat, 31 May 2003 21:26:55 +0200
- Subject: [Janitor] f/*.c cleanup
Some more unused macros. Ok to commit if bootstrapping on
x86_64-linux passes?
Toon, the following macros are also never defined:
NEWCOMMON in f/com.c
REDUCE_CARD_SIZE_AFTER_BIGGY in f/lex.c
Should those two also get removed?
Andreas
2003-05-31 Andreas Jaeger <aj@suse.de>
* 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.
============================================================
Index: gcc/f/expr.c
--- f/expr.c 28 May 2002 17:33:01 -0000 1.25
+++ f/expr.c 31 May 2003 19:26:31 -0000
@@ -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
============================================================
Index: gcc/f/com.c
--- f/com.c 31 May 2003 02:44:34 -0000 1.197
+++ f/com.c 31 May 2003 19:26:37 -0000
@@ -10111,9 +10111,6 @@ ffecom_arg_ptr_to_expr (ffebld expr, tre
case FFEBLD_opPERCENT_DESCR:
switch (ffeinfo_basictype (ffebld_info (expr)))
{
-#ifdef PASS_HOLLERITH_BY_DESCRIPTOR
- case FFEINFO_basictypeHOLLERITH:
-#endif
case FFEINFO_basictypeCHARACTER:
break; /* Passed by descriptor anyway. */
@@ -10129,21 +10126,6 @@ ffecom_arg_ptr_to_expr (ffebld expr, tre
break;
}
-#ifdef PASS_HOLLERITH_BY_DESCRIPTOR
- if ((ffeinfo_basictype (ffebld_info (expr)) == FFEINFO_basictypeHOLLERITH)
- && (length != NULL))
- { /* Pass Hollerith by descriptor. */
- ffetargetHollerith h;
-
- assert (ffebld_op (expr) == FFEBLD_opCONTER);
- h = ffebld_cu_val_hollerith (ffebld_constant_union
- (ffebld_conter (expr)));
- *length
- = build_int_2 (h.length, 0);
- TREE_TYPE (*length) = ffecom_f2c_ftnlen_type_node;
- }
-#endif
-
if (ffeinfo_basictype (ffebld_info (expr)) != FFEINFO_basictypeCHARACTER)
return ffecom_ptr_to_expr (expr);
--
Andreas Jaeger
SuSE Labs aj@suse.de
private aj@arthur.inka.de
http://www.suse.de/~aj