projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[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;
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)
/* Collect all of the grotty #ifdef's in one place. */
void cvtErrno(STG_NO_ARGS)