X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fstd%2Fcbits%2Ferrno.lc;h=8b62335a2f9b45a21cf965b0ccc62e257c0fd609;hb=967cc47f37cb93a5e2b6df7822c9a646f0428247;hp=0eaa9d1ac9f2cf2e8cab1a83a36d48e3792a331f;hpb=28139aea50376444d56f43f0914291348a51a7e7;p=ghc-hetmet.git

diff --git a/ghc/lib/std/cbits/errno.lc b/ghc/lib/std/cbits/errno.lc
index 0eaa9d1..8b62335 100644
--- 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)