[unix-history] / usr / src / usr.bin / pascal / libpc / FRTN.c

/*-
 * Copyright (c) 1979, 1993
 *	The Regents of the University of California.  All rights reserved.
 *
 * %sccs.include.redist.c%
 */

#ifndef lint
static char sccsid[] = "@(#)FRTN.c	8.1 (Berkeley) %G%";
#endif /* not lint */

#include "h00vars.h"

FRTN(frtn, save)
	register struct formalrtn *frtn;
	char *save;
{
	blkcpy(save, &_disply[1], frtn->fbn * sizeof(struct display));
}
Commit	Line	Data
0d78ca85	1	/*-
8db0b741 KB	2	* Copyright (c) 1979, 1993
8db0b741 KB	3	* The Regents of the University of California. All rights reserved.
0d78ca85 KB	4	*
	5	* %sccs.include.redist.c%
	6	*/
49854e0d	7
0d78ca85	8	#ifndef lint
8db0b741	9	static char sccsid[] = "@(#)FRTN.c 8.1 (Berkeley) %G%";
0d78ca85	10	#endif /* not lint */
49854e0d KM	11
	12	#include "h00vars.h"
	13
f630942b	14	FRTN(frtn, save)
49854e0d	15	register struct formalrtn *frtn;
f630942b	16	char *save;
49854e0d	17	{
f7593875	18	blkcpy(save, &_disply[1], frtn->fbn * sizeof(struct display));
49854e0d	19	}