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

static	char *sccsid = "@(#)proc.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"

proc(r)
	int *r;
{

	call(r[2], r[3]);
}
Commit	Line	Data
4a98b8d2 PK	1	static char *sccsid = "@(#)proc.c 1.1 (Berkeley) %G%";
	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	proc(r)
	15	int *r;
	16	{
	17
	18	call(r[2], r[3]);
	19	}