[project @ 1998-02-02 17:27:26 by simonm]

[ghc-hetmet.git] / ghc / lib / cbits / filePutc.lc

diff --git a/ghc/lib/cbits/filePutc.lc b/ghc/lib/cbits/filePutc.lc
deleted file mode 100644 (file)
index 4e6b85b..0000000
--- a/ghc/lib/cbits/filePutc.lc
+++ /dev/null
@@ -1,32 +0,0 @@
-%
-% (c) The GRASP/AQUA Project, Glasgow University, 1994
-%
-\subsection[filePuc.lc]{hPutChar Runtime Support}
-
-\begin{code}
-
-#include "rtsdefs.h"
-#include "stgio.h"
-#include "error.h"
-
-StgInt
-filePutc(fp, c)
-StgForeignObj fp;
-StgInt c;
-{
-    int rc;
-
-    /* Try to read a character */
-    while ((rc = putc((int) c, (FILE *) fp)) == EOF && errno == EINTR)
-       clearerr((FILE *) fp);
-
-    if (rc == EOF) {
-       cvtErrno();
-       stdErrno();
-       return -1;
-    }
-
-    return 0;
-}
-
-\end{code}