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

/*-
 * Copyright (c) 1980 The Regents of the University of California.
 * All rights reserved.
 *
 * %sccs.include.redist.c%
 */

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