mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-09 02:26:59 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix 980427-0.f:

Browse Source 
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
This commit is contained in:
Craig Burley 1998-05-06 05:06:36 -04:00 committed by Dave Love
parent 90fbb8c9f5
commit f8676b5db3
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/f/ChangeLog
View File

@ -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

3
gcc/f/global.c
View File

@ -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;
}