diff options
| author | Craig Burley <burley@gnu.org> | 1998-07-16 16:53:01 -0600 |
|---|---|---|
| committer | Jeff Law <law@gcc.gnu.org> | 1998-07-16 16:53:01 -0600 |
| commit | c30922357a58440aee781193cdc0aa78befff9d1 (patch) | |
| tree | d7a6f4e325a86e99b4ebf865339137fd6fef7dde /gcc/f | |
| parent | 75750f9c8a098d85ef6a68b0b1115ca6aeae384a (diff) | |
| download | gcc-c30922357a58440aee781193cdc0aa78befff9d1.zip gcc-c30922357a58440aee781193cdc0aa78befff9d1.tar.gz gcc-c30922357a58440aee781193cdc0aa78befff9d1.tar.bz2 | |
(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
Diffstat (limited to 'gcc/f')
| -rw-r--r-- | gcc/f/com.c | 33 |
1 files changed, 4 insertions, 29 deletions
diff --git a/gcc/f/com.c b/gcc/f/com.c index 6481642..269477d 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. */ |