* Copyright (c) 1980 The Regents of the University of California.
* %sccs.include.redist.c%
static char sccsid
[] = "@(#)case.c 5.2 (Berkeley) %G%";
* pxp - Pascal execution profiler
* Version 1.2 January 1979
* [3] list of cased statements:
* [2] list of constant labels
int *othersp
; /* tree where others is, or NIL */
int hasothers
; /* 1 if others found, else 0 */
hasothers
= needscaseguard(r
,&othersp
);
for (cl
= r
[3]; cl
!= NIL
;) {
ppid("{case label list}");
if (cs
!= NIL
&& cs
[0] == T_BLOCK
) {