From e90c9dc046dbe66bb9397f6a58e054939b048561 Mon Sep 17 00:00:00 2001 From: Andreas Jaeger Date: Sun, 1 Jun 2003 09:21:02 +0200 Subject: 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 --- gcc/f/lex.c | 16 ---------------- 1 file changed, 16 deletions(-) (limited to 'gcc/f/lex.c') diff --git a/gcc/f/lex.c b/gcc/f/lex.c index 29ff43e..39b9c62 100644 --- a/gcc/f/lex.c +++ b/gcc/f/lex.c @@ -1028,7 +1028,6 @@ ffelex_hash_ (FILE *finput) goto skipline; } } - else if (c == 'd') { if (getc (finput) == 'e' @@ -1450,9 +1449,6 @@ ffelex_include_ () if (card_length != 0) { -#ifdef REDUCE_CARD_SIZE_AFTER_BIGGY /* Define if occasional large lines. */ -#error "need to handle possible reduction of card size here!!" -#endif assert (ffelex_card_size_ >= card_length); /* It shrunk?? */ memcpy (ffelex_card_image_, card_image, card_length); } @@ -1756,18 +1752,6 @@ ffelex_file_fixed (ffewhereFile wf, FILE *f) beginning_of_line_again: /* :::::::::::::::::::: */ -#ifdef REDUCE_CARD_SIZE_AFTER_BIGGY /* Define if occasional large lines. */ - if (ffelex_card_size_ != FFELEX_columnINITIAL_SIZE_) - { - ffelex_card_image_ - = malloc_resize_ks (malloc_pool_image (), - ffelex_card_image_, - FFELEX_columnINITIAL_SIZE_ + 9, - ffelex_card_size_ + 9); - ffelex_card_size_ = FFELEX_columnINITIAL_SIZE_; - } -#endif - first_line: /* :::::::::::::::::::: */ c = latest_char_in_file; -- cgit v1.1