xref: /csrg-svn/usr.bin/pascal/libpc/FLUSH.c (revision 3867)
11651Smckusick /* Copyright (c) 1979 Regents of the University of California */
21651Smckusick 
3*3867Smckusic static char sccsid[] = "@(#)FLUSH.c 1.2 06/10/81";
41651Smckusick 
51651Smckusick #include "h00vars.h"
61651Smckusick 
71651Smckusick FLUSH(curfile)
81651Smckusick 
91651Smckusick 	register struct iorec	*curfile;
101651Smckusick {
111651Smckusick 	if (curfile->fblk >= MAXFILES || _actfile[curfile->fblk] != curfile) {
12*3867Smckusic 		ERROR("Reference to an inactive file\n", 0);
131651Smckusick 		return;
141651Smckusick 	}
151651Smckusick 	if (curfile->funit & FWRITE) {
161651Smckusick 		fflush(curfile->fbuf);
171651Smckusick 	}
181651Smckusick }
19