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