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/lex.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/lex.c')
| -rw-r--r-- | gcc/f/lex.c | 16 |
1 files changed, 0 insertions, 16 deletions
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; |