add fflush to the 64 bit version of StdFile.icl

d9206533 · John van Groningen · 71efd39f · d9206533
Commit d9206533 authored Jan 10, 2019 by John van Groningen
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 0 deletions

Libraries/StdEnv/StdEnv 64 Changed Files/StdFile.icl Libraries/StdEnv/StdEnv 64 Changed Files/StdFile.icl +7 -0

No files found.
--- a/Libraries/StdEnv/StdEnv 64 Changed Files/StdFile.icl
+++ b/Libraries/StdEnv/StdEnv 64 Changed Files/StdFile.icl
@@ -495,3 +495,10 @@ instance FileEnv World where
 			 }

 create_files :== Files;
+
+fflush :: !*File -> (!Bool,!*File)
+fflush f = code {
+    .d 0 2 f
+    jsr flushF
+    .o 0 3 bf
+}