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% 622235Sdist */ 722235Sdist 822235Sdist #ifndef lint 9*48112Sbostic static char sccsid[] = "@(#)proc.c 5.2 (Berkeley) 04/16/91"; 10*48112Sbostic #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 222862Speter proc(r) 232862Speter int *r; 242862Speter { 252862Speter 262862Speter call(r[2], r[3]); 272862Speter } 28