12855Speter /* 2*22229Sdist * Copyright (c) 1980 Regents of the University of California. 3*22229Sdist * All rights reserved. The Berkeley software License Agreement 4*22229Sdist * specifies the terms and conditions for redistribution. 5*22229Sdist */ 6*22229Sdist 7*22229Sdist #ifndef lint 8*22229Sdist static char sccsid[] = "@(#)func.c 5.1 (Berkeley) 06/05/85"; 9*22229Sdist #endif not lint 10*22229Sdist 11*22229Sdist /* 122855Speter * pxp - Pascal execution profiler 132855Speter * 142855Speter * Bill Joy UCB 152855Speter * Version 1.2 January 1979 162855Speter */ 172855Speter 182855Speter #include "0.h" 192855Speter #include "tree.h" 202855Speter 212855Speter /* 222855Speter * A function call 232855Speter */ 242855Speter funccod(r) 252855Speter register int *r; 262855Speter { 272855Speter 282855Speter call(r[2], r[3]); 292855Speter } 30