From: Craig Burley <burley@gnu.org>
Date: Thu, 16 Jul 1998 22:53:40 +0000 (-0600)
Subject: (ffecom_finish_symbol_transform_): Revert change of 1998-05-23...
X-Git-Tag: prereleases/egcs-1.1-prerelease~214
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4dcc58ac79e34aaaf06376d4cb5e75872480e096;p=thirdparty%2Fgcc.git

(ffecom_finish_symbol_transform_): Revert change of 1998-05-23...

�
	* (ffecom_finish_symbol_transform_): Revert change
	of 1998-05-23, as it was too aggressive, in that it
	prevented transformation of (used) functions before
	primary code generation.

From-SVN: r21239
---

diff --git a/gcc/f/com.c b/gcc/f/com.c
index 648164246739..269477dfc672 100644
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -6715,35 +6715,10 @@ ffecom_finish_symbol_transform_ (ffesymbol s)
 
   if (ffesymbol_hook (s).decl_tree == NULL_TREE)
     {
-      if (ffesymbol_where (s) == FFEINFO_whereCONSTANT
-	  && (ffesymbol_kind (s) == FFEINFO_kindFUNCTION
-	      || ffesymbol_kind (s) == FFEINFO_kindSUBROUTINE))
-	{
-	  /* An unreferenced statement function.  If this refers to
-	     an undeclared array, it'll look like a reference to
-	     an external function that might not exist.  Even if it
-	     does refer to an non-existent function, it seems silly
-	     to force a linker error when the function won't actually
-	     be called.  But before the 1998-05-15 change to egcs/gcc
-	     toplev.c by Mark Mitchell, to fix other problems, this
-	     didn't actually happen, since gcc would defer nested
-	     functions to be compiled later only if needed.  With that
-	     change, it makes sense to simply avoid telling the back
-	     end about the statement (nested) function at all.  But
-	     if -Wunused is specified, might as well warn about it.  */
-
-	  if (warn_unused)
-	    {
-	      ffebad_start (FFEBAD_SFUNC_UNUSED);
-	      ffebad_string (ffesymbol_text (s));
-	      ffebad_here (0, ffesymbol_where_line (s), ffesymbol_where_column (s));
-	      ffebad_finish ();
-	    }
-	}
-      else if (ffesymbol_kind (s) != FFEINFO_kindNONE
-	       || (ffesymbol_where (s) != FFEINFO_whereNONE
-		   && ffesymbol_where (s) != FFEINFO_whereINTRINSIC
-		   && ffesymbol_where (s) != FFEINFO_whereDUMMY))
+      if (ffesymbol_kind (s) != FFEINFO_kindNONE
+	  || (ffesymbol_where (s) != FFEINFO_whereNONE
+	      && ffesymbol_where (s) != FFEINFO_whereINTRINSIC
+	      && ffesymbol_where (s) != FFEINFO_whereDUMMY))
 	/* Not transformed, and not CHARACTER*(*), and not a dummy
 	   argument, which can happen only if the entry point names
 	   it "rides in on" are all invalidated for other reasons.  */