Fix 980427-0.f:

Tue Apr 28 09:23:10 1998  Craig Burley  <burley@gnu.org>
	Fix 980427-0.f:
	* global.c (ffeglobal_ref_progunit_): When transitioning
	from EXT to FUNC, discard hook, since the decl, if any, is
	probably wrong.

From-SVN: r19574

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 302f88ed913187dc0d14e50ce2208966a060462e..b3ffe65ed37e854ecdaee5aee6fa8879f09b760d 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,10 @@
+Tue Apr 28 09:23:10 1998  Craig Burley  <burley@gnu.org>
+
+       Fix 980427-0.f:
+       * global.c (ffeglobal_ref_progunit_): When transitioning
+       from EXT to FUNC, discard hook, since the decl, if any, is
+       probably wrong.
+
 Tue Apr 14 14:40:40 1998  Craig Burley  <burley@gnu.org>
 
        * com.c (ffecom_start_progunit_): Mark function decl

diff --git a/gcc/f/global.c b/gcc/f/global.c
index a0a9d5e02f5924d35536f7e445b05d96da38043e..a1fdf3daadd730e7ea29e238136eb26ba8fc5438 100644 (file)
--- a/gcc/f/global.c
+++ b/gcc/f/global.c
@@ -1360,6 +1360,9 @@ ffeglobal_ref_progunit_ (ffesymbol s, ffelexToken t, ffeglobalType type)
       /* We've learned more, so point to where we learned it.  */
       g->t = ffelex_token_use (t);
       g->type = type;
+#ifdef FFECOM_globalHOOK
+      g->hook = FFECOM_globalNULL;     /* Discard previous _DECL. */
+#endif
       g->u.proc.n_args = -1;
     }