static char *sccsid
= "@(#)case.c 1.1 (Berkeley) 3/2/81";
/* Copyright (c) 1979 Regents of the University of California */
* pxp - Pascal execution profiler
* Version 1.2 January 1979
for (cl
= r
[3]; cl
!= NIL
;) {
ppid("{case label list}");
if (cs
!= NIL
&& cs
[0] == T_BLOCK
) {