diff options
| author | simonm <unknown> | 1998-04-10 10:55:01 +0000 |
|---|---|---|
| committer | simonm <unknown> | 1998-04-10 10:55:01 +0000 |
| commit | 3f9b5688990aa7c1170c8d995df69087b43dabeb (patch) | |
| tree | 98ea8a0869cdea0562c94cfb68398ce451046176 /ghc/lib/std/cbits/flushFile.lc | |
| parent | 1be6e009f6493080ea5d26cdc611279244163db1 (diff) | |
| download | haskell-3f9b5688990aa7c1170c8d995df69087b43dabeb.tar.gz | |
[project @ 1998-04-10 10:54:14 by simonm]
New Run-Time System Support, includes:
- New code generator
- Modifications to the mangler
- Unboxed Tuple support
- Various other minor changes.
Diffstat (limited to 'ghc/lib/std/cbits/flushFile.lc')
| -rw-r--r-- | ghc/lib/std/cbits/flushFile.lc | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/ghc/lib/std/cbits/flushFile.lc b/ghc/lib/std/cbits/flushFile.lc deleted file mode 100644 index 6cfd484e74..0000000000 --- a/ghc/lib/std/cbits/flushFile.lc +++ /dev/null @@ -1,30 +0,0 @@ -% -% (c) The GRASP/AQUA Project, Glasgow University, 1994 -% -\subsection[flushFile.lc]{hFlush Runtime Support} - -\begin{code} - -#include "rtsdefs.h" -#include "stgio.h" - -StgInt -flushFile(fp) -StgForeignObj fp; -{ - int rc; - - while ((rc = fflush((FILE *) fp)) != 0) { - if (errno != EINTR) { - cvtErrno(); - stdErrno(); - return rc; - } - } - return 0; -} - -\end{code} - - - |