1*48112Sbostic /*- 2*48112Sbostic * Copyright (c) 1980 The Regents of the University of California. 3*48112Sbostic * All rights reserved. 4*48112Sbostic * 5*48112Sbostic * %sccs.include.redist.c% 622229Sdist */ 722229Sdist 822229Sdist #ifndef lint 9*48112Sbostic static char sccsid[] = "@(#)func.c 5.2 (Berkeley) 04/16/91"; 10*48112Sbostic #endif /* not lint */ 1122229Sdist 1222229Sdist /* 132855Speter * pxp - Pascal execution profiler 142855Speter * 152855Speter * Bill Joy UCB 162855Speter * Version 1.2 January 1979 172855Speter */ 182855Speter 192855Speter #include "0.h" 202855Speter #include "tree.h" 212855Speter 222855Speter /* 232855Speter * A function call 242855Speter */ 252855Speter funccod(r) 262855Speter register int *r; 272855Speter { 282855Speter 292855Speter call(r[2], r[3]); 302855Speter } 31