/* Copyright (c) 1979 Regents of the University of California */
static char sccsid
[] = "@(#)WRITES.c 1.1 %G%";
WRITES(curfile
, d1
, d2
, d3
, d4
)
register struct iorec
*curfile
;
if (curfile
->funit
& FREAD
) {
ERROR(EWRITEIT
, curfile
->pfname
);
if (ferror(curfile
->fbuf
)) {
ERROR(EWRITE
, curfile
->pfname
);