date and time created 80/10/31 14:45:07 by mckusick

[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);
}