From: sof <unknown>
Date: Fri, 14 Mar 1997 03:14:53 +0000 (+0000)
Subject: [project @ 1997-03-14 03:14:25 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~806
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9c81cf3d1023456f749876c78211136745bddf9b;p=ghc-hetmet.git

[project @ 1997-03-14 03:14:25 by sof]
Flush output stream
---

diff --git a/ghc/runtime/hooks/ErrorHdr.lc b/ghc/runtime/hooks/ErrorHdr.lc
index d71a3a9..3c04fec 100644
--- a/ghc/runtime/hooks/ErrorHdr.lc
+++ b/ghc/runtime/hooks/ErrorHdr.lc
@@ -4,6 +4,8 @@
 void
 ErrorHdrHook (FILE *where)
 {
+    fflush( stdout );			/* Flush out any pending output */
+
     fprintf(where, "\nFail: ");
 }
 \end{code}
diff --git a/ghc/runtime/hooks/PatErrorHdr.lc b/ghc/runtime/hooks/PatErrorHdr.lc
index 5e175a4..2382049 100644
--- a/ghc/runtime/hooks/PatErrorHdr.lc
+++ b/ghc/runtime/hooks/PatErrorHdr.lc
@@ -4,6 +4,8 @@
 void
 PatErrorHdrHook (FILE *where)
 {
+    fflush( stdout );			/* Flush out any pending output */
+
     fprintf(where, "\nFail: ");
 }
 \end{code}