[unix-history] / usr / src / usr.bin / pascal / pxp / func.c

static	char *sccsid = "@(#)func.c	2.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]);
}
Commit	Line	Data
ebd61f12	1	static char *sccsid = "@(#)func.c 2.1 (Berkeley) %G%";
29d51e99 PK	2	/* Copyright (c) 1979 Regents of the University of California */
	3	#
	4	/*
	5	* pxp - Pascal execution profiler
	6	*
	7	* Bill Joy UCB
	8	* Version 1.2 January 1979
	9	*/
	10
	11	#include "0.h"
	12	#include "tree.h"
	13
	14	/*
	15	* A function call
	16	*/
	17	funccod(r)
	18	register int *r;
	19	{
	20
	21	call(r[2], r[3]);
	22	}