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

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

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

#include "h00vars.h"

FRTN(frtn, result)
	register struct formalrtn *frtn;
	int result;
{
	register struct display *dp;
	register struct display *ds;
	struct display *limit;

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