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

/*
 * Copyright (c) 1980 Regents of the University of California.
 * All rights reserved.  The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 */

#ifndef lint
static char sccsid[] = "@(#)func.c	5.1 (Berkeley) %G%";
#endif not lint

/*
 * 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
252367af DF	1	/*
	2	* Copyright (c) 1980 Regents of the University of California.
	3	* All rights reserved. The Berkeley software License Agreement
	4	* specifies the terms and conditions for redistribution.
	5	*/
	6
	7	#ifndef lint
	8	static char sccsid[] = "@(#)func.c 5.1 (Berkeley) %G%";
	9	#endif not lint
	10
29d51e99 PK	11	/*
	12	* pxp - Pascal execution profiler
	13	*
	14	* Bill Joy UCB
	15	* Version 1.2 January 1979
	16	*/
	17
	18	#include "0.h"
	19	#include "tree.h"
	20
	21	/*
	22	* A function call
	23	*/
	24	funccod(r)
	25	register int *r;
	26	{
	27
	28	call(r[2], r[3]);
	29	}