* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
static char sccsid
[] = "@(#)rec.c 5.1 (Berkeley) %G%";
* pxp - Pascal execution profiler
* Version 1.2 January 1979
register int *fp
, *tp
, *ip
;
if (v
!= NIL
&& r
!= NIL
)
for (vc
= r
[4]; vc
!= NIL
;) {
ppid("{case label list}");