summary |
tags |
clone url |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
a002c9f)
SCCS-vsn: usr.bin/pascal/libpc/PFLUSH.c 1.1
--- /dev/null
+/* Copyright (c) 1979 Regents of the University of California */
+
+static char sccsid[] = "@(#)PFLUSH.c 1.1 %G%";
+
+#include "h00vars.h"
+
+/*
+ * insure that a usable image is in the buffer window
+ */
+PFLUSH()
+{
+ register struct iorec *next;
+
+ next = _fchain.fchain;
+ while(next != FILNIL) {
+ if ((next->funit & (FDEF | FREAD)) == 0) {
+ fflush(next->fbuf);
+ }
+ next = next->fchain;
+ }
+}