This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: [Janitor] f/*.c cleanup
- From: Andreas Jaeger <aj at suse dot de>
- To: Toon Moene <toon at moene dot indiv dot nluug dot nl>
- Cc: gcc-patches at gcc dot gnu dot org, Toon Moene <moene at knmi dot nl>
- Date: Sat, 31 May 2003 23:49:45 +0200
- Subject: Re: [Janitor] f/*.c cleanup
- References: <u8znl2zzls.fsf@gromit.moeb><3ED9105D.6080008@moene.indiv.nluug.nl>
Toon Moene <toon@moene.indiv.nluug.nl> writes:
> Andreas Jaeger wrote:
>
>> 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?
>
> Yes.
I'll take this as an approval for the appended patch I'm just testing.
>> 2003-05-31 Andreas Jaeger <aj@suse.de>
>> * expr.c (ffeexpr_exprstack_push_operand_): Remove code
>> depenend
>> on WEIRD_NONFORTRAN_RULES.
>
> OK - thanks !
Andreas
2003-05-31 Andreas Jaeger <aj@suse.de>
* lex.c (ffelex_file_fixed): Remove usage of
REDUCE_CARD_SIZE_AFTER_BIGGY.
* com.c (ffecom_const_expr): Remove usage of NEWCOMMON.
============================================================
Index: gcc/f/com.c
--- f/com.c 31 May 2003 02:44:34 -0000 1.197
+++ f/com.c 31 May 2003 21:49:18 -0000
@@ -10695,10 +10677,6 @@ ffecom_const_expr (ffebld expr)
if (ffebld_arity (expr) == 0
&& (ffebld_op (expr) != FFEBLD_opSYMTER
-#if NEWCOMMON
- /* ~~Enable once common/equivalence is handled properly? */
- || ffebld_where (expr) == FFEINFO_whereCOMMON
-#endif
|| ffebld_where (expr) == FFEINFO_whereGLOBAL
|| ffebld_where (expr) == FFEINFO_whereINTRINSIC))
{
============================================================
Index: gcc/f/lex.c
--- f/lex.c 31 May 2003 18:45:31 -0000 1.40
+++ f/lex.c 31 May 2003 21:49:19 -0000
@@ -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);
}
@@ -1755,18 +1751,6 @@ ffelex_file_fixed (ffewhereFile wf, FILE
/* Come here directly when last line didn't clarify the continuation issue. */
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: /* :::::::::::::::::::: */
--
Andreas Jaeger
SuSE Labs aj@suse.de
private aj@arthur.inka.de
http://www.suse.de/~aj