diff options
| author | Craig Burley <burley@gnu.org> | 1998-04-14 20:19:01 -0400 |
|---|---|---|
| committer | Jeff Law <law@gcc.gnu.org> | 1998-04-14 18:19:01 -0600 |
| commit | 3cf0cea4f9de3692a87e8cb97d72009d792abfa7 (patch) | |
| tree | 4adcb4c56d24b4ab462b3c40fd2f1ba25af8a9ee | |
| parent | 47747e5377c0a560d55b85c0d2494301f78d6df1 (diff) | |
| download | gcc-3cf0cea4f9de3692a87e8cb97d72009d792abfa7.zip gcc-3cf0cea4f9de3692a87e8cb97d72009d792abfa7.tar.gz gcc-3cf0cea4f9de3692a87e8cb97d72009d792abfa7.tar.bz2 | |
Changes from Craig. See ChangeLog for details.
From-SVN: r19217
| -rw-r--r-- | gcc/f/ChangeLog | 10 | ||||
| -rw-r--r-- | gcc/f/bugs.texi | 6 | ||||
| -rw-r--r-- | gcc/f/com.c | 2 | ||||
| -rw-r--r-- | gcc/f/news.texi | 8 | ||||
| -rw-r--r-- | gcc/f/sta.c | 1 |
5 files changed, 24 insertions, 3 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 5fc7f88..302f88e 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,13 @@ +Tue Apr 14 14:40:40 1998 Craig Burley <burley@gnu.org> + + * 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 <burley@gnu.org> + + * 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 <burley@gnu.org> * bugs.texi: Various updates. diff --git a/gcc/f/bugs.texi b/gcc/f/bugs.texi index d44ecdb..d6370f9 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 282a294..1f58370 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 00c7c5c..7c3411a 100644 --- a/gcc/f/news.texi +++ b/gcc/f/news.texi @@ -33,6 +33,14 @@ New features 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 @item diff --git a/gcc/f/sta.c b/gcc/f/sta.c index 281ca93..c7bd664 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; |