[project @ 1998-11-26 09:17:22 by sof]

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

diff --git a/ghc/lib/std/cbits/errno.lc b/ghc/lib/std/cbits/errno.lc
index 0eaa9d1..8b62335 100644 (file)
--- a/ghc/lib/std/cbits/errno.lc
+++ b/ghc/lib/std/cbits/errno.lc
@@ -13,6 +13,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(STG_NO_ARGS)