projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bottom extraction: float out bottoming expressions to top level
[ghc-hetmet.git]
/
rts
/
RtsUtils.h
diff --git
a/rts/RtsUtils.h
b/rts/RtsUtils.h
index
241cbf3
..
e47dbb9
100644
(file)
--- a/
rts/RtsUtils.h
+++ b/
rts/RtsUtils.h
@@
-9,6
+9,8
@@
#ifndef RTSUTILS_H
#define RTSUTILS_H
#ifndef RTSUTILS_H
#define RTSUTILS_H
+BEGIN_RTS_PRIVATE
+
/* -----------------------------------------------------------------------------
* (Checked) dynamic allocation
* -------------------------------------------------------------------------- */
/* -----------------------------------------------------------------------------
* (Checked) dynamic allocation
* -------------------------------------------------------------------------- */
@@
-41,12
+43,11
@@
void heapCheckFail( void );
void printRtsInfo(void);
void printRtsInfo(void);
-HsInt genSymZh(void);
-HsInt resetGenSymZh(void);
-
/* Alternate to raise(3) for threaded rts, for OpenBSD */
int genericRaise(int sig);
int rts_isProfiled(void);
/* Alternate to raise(3) for threaded rts, for OpenBSD */
int genericRaise(int sig);
int rts_isProfiled(void);
+END_RTS_PRIVATE
+
#endif /* RTSUTILS_H */
#endif /* RTSUTILS_H */