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

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

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

#include "h00vars.h"

FCALL(frtn)
	register struct formalrtn *frtn;
{
	register struct display *dp;
	register struct display *ds;
	struct display *limit;

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