/*
* (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
*/
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)
break;
}
}
+
+void
+convertErrno(void)
+{
+ cvtErrno();
+ stdErrno();
+}