From 49854e0d7405b34ad72f82ca03f3ad9bdff10581 Mon Sep 17 00:00:00 2001 From: Kirk McKusick Date: Thu, 30 Oct 1980 08:33:18 -0800 Subject: [PATCH] date and time created 80/10/30 00:33:18 by mckusick SCCS-vsn: usr.bin/pascal/libpc/FRTN.c 1.1 --- usr/src/usr.bin/pascal/libpc/FRTN.c | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 usr/src/usr.bin/pascal/libpc/FRTN.c diff --git a/usr/src/usr.bin/pascal/libpc/FRTN.c b/usr/src/usr.bin/pascal/libpc/FRTN.c new file mode 100644 index 0000000000..9c3ede6a80 --- /dev/null +++ b/usr/src/usr.bin/pascal/libpc/FRTN.c @@ -0,0 +1,19 @@ +/* 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; +} -- 2.20.1