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

/* 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
49e8dbd7 BJ	1	/* Copyright (c) 1979 Regents of the University of California */
	2	#
	3	/*
	4	* pxp - Pascal execution profiler
	5	*
	6	* Bill Joy UCB
	7	* Version 1.2 January 1979
	8	*/
	9
	10	#include "0.h"
	11	#include "tree.h"
	12
	13	/*
	14	* A function call
	15	*/
	16	funccod(r)
	17	register int *r;
	18	{
	19
	20	call(r[2], r[3]);
	21	}