xref: /csrg-svn/usr.bin/pascal/libpc/FRTN.c (revision 1653)
1*1653Smckusick /* Copyright (c) 1979 Regents of the University of California */
2*1653Smckusick 
3*1653Smckusick static char sccsid[] = "@(#)FRTN.c 1.1 10/30/80";
4*1653Smckusick 
5*1653Smckusick #include "h00vars.h"
6*1653Smckusick 
7*1653Smckusick FRTN(frtn, result)
8*1653Smckusick 	register struct formalrtn *frtn;
9*1653Smckusick 	int result;
10*1653Smckusick {
11*1653Smckusick 	register struct display *dp;
12*1653Smckusick 	register struct display *ds;
13*1653Smckusick 	struct display *limit;
14*1653Smckusick 
15*1653Smckusick 	limit = &frtn->disp[2 * frtn->cbn];
16*1653Smckusick 	for (ds = &frtn->disp[frtn->cbn], dp = &_disply[1]; ds < limit; )
17*1653Smckusick 		*dp++ = *ds++;
18*1653Smckusick 	return result;
19*1653Smckusick }
20