xref: /csrg-svn/usr.bin/pascal/libpc/FSAV.c (revision 40865)
1*40865Sbostic /*-
2*40865Sbostic  * Copyright (c) 1979 The Regents of the University of California.
3*40865Sbostic  * All rights reserved.
4*40865Sbostic  *
5*40865Sbostic  * %sccs.include.redist.c%
6*40865Sbostic  */
71654Smckusick 
8*40865Sbostic #ifndef lint
9*40865Sbostic static char sccsid[] = "@(#)FSAV.c	1.5 (Berkeley) 04/09/90";
10*40865Sbostic #endif /* not lint */
111654Smckusick 
121654Smckusick #include "h00vars.h"
131654Smckusick 
141654Smckusick struct formalrtn *
151654Smckusick FSAV(entryaddr, cbn, frtn)
161654Smckusick 	long (*entryaddr)();
171654Smckusick 	long cbn;
181654Smckusick 	register struct formalrtn *frtn;
191654Smckusick {
203432Smckusic 	frtn->fentryaddr = entryaddr;
213432Smckusic 	frtn->fbn = cbn;
229134Smckusick 	blkcpy(&_disply[1], &frtn->fdisp[0],
239134Smckusick 		frtn->fbn * sizeof(struct display));
241654Smckusick 	return frtn;
251654Smckusick }
26