xref: /csrg-svn/usr.bin/pascal/libpc/FRTN.c (revision 62092)
140865Sbostic /*-
2*62092Sbostic  * Copyright (c) 1979, 1993
3*62092Sbostic  *	The Regents of the University of California.  All rights reserved.
440865Sbostic  *
540865Sbostic  * %sccs.include.redist.c%
640865Sbostic  */
71653Smckusick 
840865Sbostic #ifndef lint
9*62092Sbostic static char sccsid[] = "@(#)FRTN.c	8.1 (Berkeley) 06/06/93";
1040865Sbostic #endif /* not lint */
111653Smckusick 
121653Smckusick #include "h00vars.h"
131653Smckusick 
FRTN(frtn,save)143431Smckusic FRTN(frtn, save)
151653Smckusick 	register struct formalrtn *frtn;
163431Smckusic 	char *save;
171653Smckusick {
189134Smckusick 	blkcpy(save, &_disply[1], frtn->fbn * sizeof(struct display));
191653Smckusick }
20