637fb3a621209fd8dba943ddd69a10584a498d51
* 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
[] = "@(#)case.c 5.1 (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
) {