* 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
[] = "@(#)type.c 5.1 (Berkeley) %G%";
* pxp - Pascal execution profiler
* Version 1.2 January 1979
* A single type declaration
if (r
[0] != T_ID
&& r
[0] != T_TYPACK
)
* Scalar type declaration
* Conformant array subrange.
* Subrange type declaration