This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: [Janitor] f/*.c cleanup


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


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]