usr/src/usr.bin/pascal/pxp/func.c

static  char *sccsid = "@(#)func.c      1.1 (Berkeley) %G%";
/* Copyright (c) 1979 Regents of the University of California */
#
/*
 * pxp - Pascal execution profiler
 *
 * Bill Joy UCB
 * Version 1.2 January 1979
 */

#include "0.h"
#include "tree.h"

/*
 * A function call
 */
funccod(r)
        register int *r;
{

        call(r[2], r[3]);
}