148112Sbostic /*- 2*62191Sbostic * Copyright (c) 1980, 1993 3*62191Sbostic * The Regents of the University of California. All rights reserved. 448112Sbostic * 548112Sbostic * %sccs.include.redist.c% 622235Sdist */ 722235Sdist 822235Sdist #ifndef lint 9*62191Sbostic static char sccsid[] = "@(#)proc.c 8.1 (Berkeley) 06/06/93"; 1048112Sbostic #endif /* not lint */ 1122235Sdist 1222235Sdist /* 132862Speter * pxp - Pascal execution profiler 142862Speter * 152862Speter * Bill Joy UCB 162862Speter * Version 1.2 January 1979 172862Speter */ 182862Speter 192862Speter #include "0.h" 202862Speter #include "tree.h" 212862Speter proc(r)222862Speterproc(r) 232862Speter int *r; 242862Speter { 252862Speter 262862Speter call(r[2], r[3]); 272862Speter } 28