From c30922357a58440aee781193cdc0aa78befff9d1 Mon Sep 17 00:00:00 2001 From: Craig Burley Date: Thu, 16 Jul 1998 16:53:01 -0600 Subject: [PATCH] (ffecom_finish_symbol_transform_): Revert change of 1998-05-23... d * (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: r21235 --- 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 64816424673..269477dfc67 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.30.2