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-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
*
/*
* (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
*/
*
* GHC Error Number Conversion
*/
@@
-14,6
+14,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(void)
/* Collect all of the grotty #ifdef's in one place. */
void cvtErrno(void)
@@
-931,3
+944,10
@@
stdErrno(void)
break;
}
}
break;
}
}
+
+void
+convertErrno(void)
+{
+ cvtErrno();
+ stdErrno();
+}