From 9091360c8ef8e29297aafb2d2c45af36909e37e6 Mon Sep 17 00:00:00 2001
From: John van Groningen
Date: Mon, 6 Oct 2003 12:32:44 +0000
Subject: add flushF

---
 ifileIO3.s | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'ifileIO3.s')

diff --git a/ifileIO3.s b/ifileIO3.s
index 5ffc0aa..fbd70f7 100644
--- a/ifileIO3.s
+++ b/ifileIO3.s
@@ -55,6 +55,7 @@ fwritestring_error:
 	.globl	positionF
 	.globl	seekF
 	.globl	shareF
+	.globl	flushF
 	
 	.globl	openSF
 	.globl	readSFC
@@ -95,6 +96,7 @@ fwritestring_error:
 	.globl	@file_position
 	.globl	@file_seek
 	.globl	@file_share
+	.globl	@flush_file_buffer
 
 	.globl	@open_s_file
 	.globl	@file_read_s_char
@@ -501,7 +503,16 @@ shareF:
 	
 	movl	$-1,d0
 	ret
-	
+
+flushF:
+	pushl	d1
+	call	@flush_file_buffer
+	movl	4(sp),a2
+	xchg	d0,d1
+	movl	$-1,4(sp)
+	movl	a2,(sp)
+	ret
+
 openSF:	pushl	d0
 	addl	$4,a0
 	pushl	a0
-- 
cgit v1.2.3