1*1674Smckusick /* Copyright (c) 1979 Regents of the University of California */
2*1674Smckusick 
3*1674Smckusick static char sccsid[] = "@(#)PFLUSH.c 1.1 10/30/80";
4*1674Smckusick 
5*1674Smckusick #include "h00vars.h"
6*1674Smckusick 
7*1674Smckusick /*
8*1674Smckusick  * insure that a usable image is in the buffer window
9*1674Smckusick  */
10*1674Smckusick PFLUSH()
11*1674Smckusick {
12*1674Smckusick 	register struct iorec	*next;
13*1674Smckusick 
14*1674Smckusick 	next = _fchain.fchain;
15*1674Smckusick 	while(next != FILNIL) {
16*1674Smckusick 		if ((next->funit & (FDEF | FREAD)) == 0) {
17*1674Smckusick 			fflush(next->fbuf);
18*1674Smckusick 		}
19*1674Smckusick 		next = next->fchain;
20*1674Smckusick 	}
21*1674Smckusick }
22