projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Allow reification of existentials and GADTs
[ghc-hetmet.git]
/
rts
/
RtsUtils.h
diff --git
a/rts/RtsUtils.h
b/rts/RtsUtils.h
index
14856bf
..
24033b9
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
+#include "BeginPrivate.h"
+
/* -----------------------------------------------------------------------------
* (Checked) dynamic allocation
* -------------------------------------------------------------------------- */
/* -----------------------------------------------------------------------------
* (Checked) dynamic allocation
* -------------------------------------------------------------------------- */
@@
-33,24
+35,19
@@
void stgFree(void* p);
void heapOverflow(void);
char *time_str(void);
void heapOverflow(void);
char *time_str(void);
-char *ullong_format_string(ullong, char *, rtsBool);
+char *showStgWord64(StgWord64, char *, rtsBool);
#ifdef DEBUG
void heapCheckFail( void );
#endif
#ifdef DEBUG
void heapCheckFail( void );
#endif
-// XXX shouldn't be here
-void* __hscore_get_saved_termios(int fd);
-void __hscore_set_saved_termios(int fd, void* ts);
-
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);
+#include "EndPrivate.h"
+
#endif /* RTSUTILS_H */
#endif /* RTSUTILS_H */