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