1 /* Copyright (c) 1979 Regents of the University of California */ 2 3 static char sccsid[] = "@(#)FLUSH.c 1.2 06/10/81"; 4 5 #include "h00vars.h" 6 7 FLUSH(curfile) 8 9 register struct iorec *curfile; 10 { 11 if (curfile->fblk >= MAXFILES || _actfile[curfile->fblk] != curfile) { 12 ERROR("Reference to an inactive file\n", 0); 13 return; 14 } 15 if (curfile->funit & FWRITE) { 16 fflush(curfile->fbuf); 17 } 18 } 19