* 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
[] = "@(#)stat.c 5.1 (Berkeley) %G%";
* pxp - Pascal execution profiler
* Version 1.2 January 1979
ppid("{record variable list}");
ppkw(r
[0] == T_FORU
? "to" : "downto");
if (s
!= NIL
&& s
[0] == T_BLOCK
)
setcnt(cntof(&scnt
)-nowcnt());
if (s
== NIL
|| s
[0] != T_BLOCK
) {
else if (s
[0] == T_IF
|| s
[0] == T_IFEL
)
if (s
!= NIL
&& s
[0] == T_BLOCK
)
if (s
!= NIL
&& s
[0] == T_BLOCK
)