* 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
[] = "@(#)pp.c 5.3 (Berkeley) %G%";
* pxp - Pascal execution profiler
* Version 1.2 January 1979
int pplev
[3]; /* STAT, DECL, PRFN */
nopflg
= !all
&& nowcnt() == 0 || !opt('z');
* First real thing printed
* or includes an "id" (if a comment)
while (owenl
|| owenlb
) {
indent1(pplev
[PRFN
] + pplev
[DECL
] + pplev
[STAT
]);
indent1(pplev
[PRFN
] + pplev
[STAT
]);
switch (i
= shudpcnt()) {
printf("%7ld.", nowcnt());
putchar(i
== 0 ? '|' : ' ');
for (i
= unit
- 1; i
!= 0; i
--)
i
= pplev
[PRFN
] + profile
? 44 + unit
: 28;