X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fstd%2Fcbits%2FcloseFile.c;fp=ghc%2Flib%2Fstd%2Fcbits%2FcloseFile.lc;h=90eeb9d34dd836518faaf2b452f53c952181abc7;hb=3f9b5688990aa7c1170c8d995df69087b43dabeb;hp=9f4c80eb8d289b2e326f1be75d0066fa1d98e8a4;hpb=1be6e009f6493080ea5d26cdc611279244163db1;p=ghc-hetmet.git

diff --git a/ghc/lib/std/cbits/closeFile.lc b/ghc/lib/std/cbits/closeFile.c
similarity index 61%
rename from ghc/lib/std/cbits/closeFile.lc
rename to ghc/lib/std/cbits/closeFile.c
index 9f4c80e..90eeb9d 100644
--- a/ghc/lib/std/cbits/closeFile.lc
+++ b/ghc/lib/std/cbits/closeFile.c
@@ -1,16 +1,16 @@
-%
-% (c) The GRASP/AQUA Project, Glasgow University, 1994
-%
-\subsection[closeFile.lc]{hClose Runtime Support}
-
-\begin{code}
-
-#include "rtsdefs.h"
+/* 
+ * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
+ *
+ * $Id: closeFile.c,v 1.1 1998/04/10 10:54:14 simonm Exp $
+ *
+ * hClose Runtime Support
+ */
+
+#include "Rts.h"
 #include "stgio.h"
 
 StgInt
-closeFile(fp)
-StgForeignObj fp;
+closeFile(StgAddr fp)
 {
     int rc;
 
@@ -29,7 +29,5 @@ StgForeignObj fp;
     return 0;
 }
 
-\end{code}
-