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

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

diff --git a/ghc/lib/std/cbits/errno.lc b/ghc/lib/std/cbits/errno.c
similarity index 98%
rename from ghc/lib/std/cbits/errno.lc
rename to ghc/lib/std/cbits/errno.c
index 0eaa9d1..fc32980 100644 (file)
--- a/ghc/lib/std/cbits/errno.lc
+++ b/ghc/lib/std/cbits/errno.c
@@ -1,11 +1,12 @@
-%
-% (c) The GRASP/AQUA Project, Glasgow University, 1994
-%
-\subsection[errno.lc]{GHC Error Number Conversion}
-
-\begin{code}
+/* 
+ * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
+ *
+ * $Id: errno.c,v 1.1 1998/04/10 10:54:18 simonm Exp $
+ *
+ * GHC Error Number Conversion
+ */
 
-#include "rtsdefs.h"
+#include "Rts.h"
 #include "stgio.h"
 
 int ghc_errno = 0;
@@ -15,7 +16,7 @@ char *ghc_errstr = NULL;
 
 /* Collect all of the grotty #ifdef's in one place. */
 
-void cvtErrno(STG_NO_ARGS)
+void cvtErrno(void)
 {
     switch(errno) {
 #ifdef E2BIG
@@ -526,7 +527,7 @@ void cvtErrno(STG_NO_ARGS)
 }
 
 void
-stdErrno(STG_NO_ARGS)
+stdErrno(void)
 {
     switch(ghc_errno) {
     default:
@@ -930,5 +931,3 @@ stdErrno(STG_NO_ARGS)
        break;
     }
 }
-
-\end{code}