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