static	char *sccsid = "@(#)func.c	1.1 (Berkeley) 3/2/81";
/* 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]);
}
