* Copyright (c) 1979 The Regents of the University of California.
* %sccs.include.redist.c%
static char sccsid
[] = "@(#)UNIT.c 1.3 (Berkeley) %G%";
register struct iorec
*curfile
;
if (curfile
->fblk
>= MAXFILES
|| _actfile
[curfile
->fblk
] != curfile
) {
ERROR("Reference to an inactive file\n", 0);
if (curfile
->funit
& FDEF
) {
ERROR("%s: Reference to an inactive file\n", curfile
->pfname
);