xref: /csrg-svn/usr.bin/pascal/pxp/func.c (revision 2855)
1*2855Speter static	char *sccsid = "@(#)func.c	1.1 (Berkeley) 03/02/81";
2*2855Speter /* Copyright (c) 1979 Regents of the University of California */
3*2855Speter #
4*2855Speter /*
5*2855Speter  * pxp - Pascal execution profiler
6*2855Speter  *
7*2855Speter  * Bill Joy UCB
8*2855Speter  * Version 1.2 January 1979
9*2855Speter  */
10*2855Speter 
11*2855Speter #include "0.h"
12*2855Speter #include "tree.h"
13*2855Speter 
14*2855Speter /*
15*2855Speter  * A function call
16*2855Speter  */
17*2855Speter funccod(r)
18*2855Speter 	register int *r;
19*2855Speter {
20*2855Speter 
21*2855Speter 	call(r[2], r[3]);
22*2855Speter }
23