From 3cf0cea4f9de3692a87e8cb97d72009d792abfa7 Mon Sep 17 00:00:00 2001 From: Craig Burley Date: Tue, 14 Apr 1998 20:19:01 -0400 Subject: [PATCH] Changes from Craig. See ChangeLog for details. From-SVN: r19217 --- gcc/f/ChangeLog | 10 ++++++++++ gcc/f/bugs.texi | 6 +++--- gcc/f/com.c | 2 ++ gcc/f/news.texi | 8 ++++++++ gcc/f/sta.c | 1 + 5 files changed, 24 insertions(+), 3 deletions(-) diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 5fc7f88111d..302f88ed913 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,13 @@ +Tue Apr 14 14:40:40 1998 Craig Burley + + * com.c (ffecom_start_progunit_): Mark function decl + as used, to avoid spurious warning (-Wunused) for ENTRY. + +Tue Apr 14 14:19:34 1998 Craig Burley + + * sta.c (ffesta_second_): Check for CASE DEFAULT + as well as CASE, or it won't be recognized. + Mon Mar 23 11:58:43 1998 Craig Burley * bugs.texi: Various updates. diff --git a/gcc/f/bugs.texi b/gcc/f/bugs.texi index d44ecdb2f8d..d6370f99a49 100644 --- a/gcc/f/bugs.texi +++ b/gcc/f/bugs.texi @@ -5,7 +5,7 @@ @c The text of this file appears in the file BUGS @c in the G77 distribution, as well as in the G77 manual. -@c 1998-03-15 +@c 1998-03-17 @ifclear BUGSONLY @node Actual Bugs @@ -192,8 +192,8 @@ END @end example It is expected that a future version of @code{g77} will have a fix for this -problem, almost certainly by the time @code{g77} supports the forthcoming -version 2.8.0 of @code{gcc}. +problem, almost certainly by the time @code{g77} supports +version 2.8 of @code{gcc}. @cindex COMPLEX support @cindex support, COMPLEX diff --git a/gcc/f/com.c b/gcc/f/com.c index 282a294b679..1f58370ad8d 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -7867,6 +7867,8 @@ ffecom_start_progunit_ () 0, /* nested/inline */ !altentries); /* TREE_PUBLIC */ + TREE_USED (current_function_decl) = 1; /* Avoid spurious warning if altentries. */ + if (!altentries && ((g = ffesymbol_global (fn)) != NULL) && ((ffeglobal_type (g) == gt) diff --git a/gcc/f/news.texi b/gcc/f/news.texi index 00c7c5cea7c..7c3411a6d2d 100644 --- a/gcc/f/news.texi +++ b/gcc/f/news.texi @@ -32,6 +32,14 @@ New features @item Fixes and enhancements to existing features +@item +@code{CASE DEFAULT} no longer crashes @code{g77}. + +@item +The @samp{-Wunused} option no longer issues a spurious +warning about the ``master'' procedure generated by +@code{g77} for procedures containing @code{ENTRY} statements. + @item New diagnostics diff --git a/gcc/f/sta.c b/gcc/f/sta.c index 281ca936133..c7bd664f3de 100644 --- a/gcc/f/sta.c +++ b/gcc/f/sta.c @@ -644,6 +644,7 @@ ffesta_second_ (ffelexToken t) break; case FFESTR_firstCASE: + case FFESTR_firstCASEDEFAULT: ffesta_add_possible_exec_ ((ffelexHandler) ffestb_R810); break; -- 2.30.2