12862Speter /* 2*22235Sdist * Copyright (c) 1980 Regents of the University of California. 3*22235Sdist * All rights reserved. The Berkeley software License Agreement 4*22235Sdist * specifies the terms and conditions for redistribution. 5*22235Sdist */ 6*22235Sdist 7*22235Sdist #ifndef lint 8*22235Sdist static char sccsid[] = "@(#)proc.c 5.1 (Berkeley) 06/05/85"; 9*22235Sdist #endif not lint 10*22235Sdist 11*22235Sdist /* 122862Speter * pxp - Pascal execution profiler 132862Speter * 142862Speter * Bill Joy UCB 152862Speter * Version 1.2 January 1979 162862Speter */ 172862Speter 182862Speter #include "0.h" 192862Speter #include "tree.h" 202862Speter 212862Speter proc(r) 222862Speter int *r; 232862Speter { 242862Speter 252862Speter call(r[2], r[3]); 262862Speter } 27