148112Sbostic /*- 2*62189Sbostic * Copyright (c) 1980, 1993 3*62189Sbostic * The Regents of the University of California. All rights reserved. 448112Sbostic * 548112Sbostic * %sccs.include.redist.c% 622229Sdist */ 722229Sdist 822229Sdist #ifndef lint 9*62189Sbostic static char sccsid[] = "@(#)func.c 8.1 (Berkeley) 06/06/93"; 1048112Sbostic #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 */ funccod(r)252855Speterfunccod(r) 262855Speter register int *r; 272855Speter { 282855Speter 292855Speter call(r[2], r[3]); 302855Speter } 31