[project @ 1998-04-10 10:54:14 by simonm]

[ghc-hetmet.git] / ghc / lib / std / cbits / writeFile.c

diff --git a/ghc/lib/std/cbits/writeFile.lc b/ghc/lib/std/cbits/writeFile.c
similarity index 69%
rename from ghc/lib/std/cbits/writeFile.lc
rename to ghc/lib/std/cbits/writeFile.c
index 80b946f..65e1f95 100644 (file)
--- a/ghc/lib/std/cbits/writeFile.lc
+++ b/ghc/lib/std/cbits/writeFile.c
@@ -1,18 +1,16 @@
-%
-% (c) The GRASP/AQUA Project, Glasgow University, 1994
-%
-\subsection[writeFile.lc]{hPutStr Runtime Support}
-
-\begin{code}
-
-#include "rtsdefs.h"
+/* 
+ * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
+ *
+ * $Id: writeFile.c,v 1.1 1998/04/10 10:55:00 simonm Exp $
+ *
+ * hPutStr Runtime Support
+ */
+
+#include "Rts.h"
 #include "stgio.h"
 
 StgInt
-writeFile(buf, fp, bytes)
-StgAddr buf;
-StgForeignObj fp;
-StgInt bytes;
+writeFile(StgAddr buf, StgAddr fp, StgInt bytes)
 {
     int count;
     char *p = (char *) buf;
@@ -37,11 +35,7 @@ StgInt bytes;
 
 
 StgInt
-writeBuf(fp, elt_sz, len, buf)
-StgForeignObj fp;
-StgWord elt_sz;
-StgInt  len;
-StgAddr buf;
+writeBuf(StgAddr fp, W_ elt_sz, I_ len, StgAddr buf)
 {
     int count;
     char *p = (char *) buf;
@@ -63,5 +57,3 @@ StgAddr buf;
 
     return 0;
 }
-
-\end{code}