xref: /original-bsd/usr.bin/pascal/pxp/proc.c (revision 4c4f737f) 
1bc19982fSbostic /*-
2*4c4f737fSbostic  * Copyright (c) 1980, 1993
3*4c4f737fSbostic  *	The Regents of the University of California.  All rights reserved.
4bc19982fSbostic  *
5bc19982fSbostic  * %sccs.include.redist.c%
64b30748cSdist  */
74b30748cSdist 
84b30748cSdist #ifndef lint
9*4c4f737fSbostic static char sccsid[] = "@(#)proc.c	8.1 (Berkeley) 06/06/93";
10bc19982fSbostic #endif /* not lint */
114b30748cSdist 
12c6296714Speter /*
13c6296714Speter  * pxp - Pascal execution profiler
14c6296714Speter  *
15c6296714Speter  * Bill Joy UCB
16c6296714Speter  * Version 1.2 January 1979
17c6296714Speter  */
18c6296714Speter 
19c6296714Speter #include "0.h"
20c6296714Speter #include "tree.h"
21c6296714Speter 
proc(r)22c6296714Speter proc(r)
23c6296714Speter 	int *r;
24c6296714Speter {
25c6296714Speter 
26c6296714Speter 	call(r[2], r[3]);
27c6296714Speter }
28