[project @ 1998-12-02 13:17:09 by simonm]

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

diff --git a/ghc/lib/std/cbits/errno.c b/ghc/lib/std/cbits/errno.c
index fc32980..3364aaa 100644 (file)
--- a/ghc/lib/std/cbits/errno.c
+++ b/ghc/lib/std/cbits/errno.c
@@ -1,7 +1,7 @@
 /* 
  * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
  *
- * $Id: errno.c,v 1.1 1998/04/10 10:54:18 simonm Exp $
+ * $Id: errno.c,v 1.3 1998/12/02 13:27:20 simonm Exp $
  *
  * GHC Error Number Conversion
  */
@@ -14,6 +14,19 @@ int ghc_errtype = 0;
 
 char *ghc_errstr = NULL;
 
+StgAddr
+getErrStr__()
+{ return ((StgAddr)ghc_errstr); }
+
+StgInt
+getErrNo__()
+{ return ((StgInt)ghc_errno); }
+
+StgInt
+getErrType__()
+{ return ((StgInt)ghc_errtype); }
+
+
 /* Collect all of the grotty #ifdef's in one place. */
 
 void cvtErrno(void)
@@ -931,3 +944,10 @@ stdErrno(void)
        break;
     }
 }
+
+void
+convertErrno(void)
+{
+ cvtErrno();
+ stdErrno();
+}