From 4dcc58ac79e34aaaf06376d4cb5e75872480e096 Mon Sep 17 00:00:00 2001 From: Craig Burley Date: Thu, 16 Jul 1998 16:53:40 -0600 Subject: [PATCH] (ffecom_finish_symbol_transform_): Revert change of 1998-05-23... MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit � * (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 --- gcc/f/com.c | 33 ++++----------------------------- 1 file changed, 4 insertions(+), 29 deletions(-) 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. */ -- 2.47.2