From f8676b5db3879f6a4302ac559806bdfe40fe129e Mon Sep 17 00:00:00 2001 From: Craig Burley Date: Wed, 6 May 1998 05:06:36 -0400 Subject: [PATCH] Fix 980427-0.f: Tue Apr 28 09:23:10 1998 Craig Burley 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 --- gcc/f/ChangeLog | 7 +++++++ gcc/f/global.c | 3 +++ 2 files changed, 10 insertions(+) diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 302f88ed913..b3ffe65ed37 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,10 @@ +Tue Apr 28 09:23:10 1998 Craig Burley + + 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 * com.c (ffecom_start_progunit_): Mark function decl diff --git a/gcc/f/global.c b/gcc/f/global.c index a0a9d5e02f5..a1fdf3daadd 100644 --- 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; }