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

/* Copyright (c) 1979 Regents of the University of California */

static char sccsid[] = "@(#)FSAV.c 1.1 %G%";

#include "h00vars.h"

struct formalrtn *
FSAV(entryaddr, cbn, frtn) 
	long (*entryaddr)();
	long cbn;
	register struct formalrtn *frtn;
{
	register struct display *dp;
	register struct display *ds;
	struct display *limit;

	frtn->entryaddr = entryaddr;
	frtn->cbn = cbn;
	limit = &frtn->disp[frtn->cbn];
	for (dp = &_disply[1], ds = &frtn->disp[0]; ds < limit; )
		*ds++ = *dp++;
	return frtn;
}
Commit	Line	Data
d366518a KM	1	/* Copyright (c) 1979 Regents of the University of California */
	2
	3	static char sccsid[] = "@(#)FSAV.c 1.1 %G%";
	4
	5	#include "h00vars.h"
	6
	7	struct formalrtn *
	8	FSAV(entryaddr, cbn, frtn)
	9	long (*entryaddr)();
	10	long cbn;
	11	register struct formalrtn *frtn;
	12	{
	13	register struct display *dp;
	14	register struct display *ds;
	15	struct display *limit;
	16
	17	frtn->entryaddr = entryaddr;
	18	frtn->cbn = cbn;
	19	limit = &frtn->disp[frtn->cbn];
	20	for (dp = &_disply[1], ds = &frtn->disp[0]; ds < limit; )
	21	ds++ = dp++;
	22	return frtn;
	23	}