projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix #3910
[ghc-hetmet.git]
/
rts
/
sm
/
Storage.h
diff --git
a/rts/sm/Storage.h
b/rts/sm/Storage.h
index
6dbccd8
..
3ff3380
100644
(file)
--- a/
rts/sm/Storage.h
+++ b/
rts/sm/Storage.h
@@
-11,7
+11,7
@@
#include "Capability.h"
#include "Capability.h"
-BEGIN_RTS_PRIVATE
+#include "BeginPrivate.h"
/* -----------------------------------------------------------------------------
Initialisation / De-initialisation
/* -----------------------------------------------------------------------------
Initialisation / De-initialisation
@@
-19,7
+19,7
@@
BEGIN_RTS_PRIVATE
void initStorage(void);
void exitStorage(void);
void initStorage(void);
void exitStorage(void);
-void freeStorage(void);
+void freeStorage(rtsBool free_heap);
/* -----------------------------------------------------------------------------
Storage manager state
/* -----------------------------------------------------------------------------
Storage manager state
@@
-132,8
+132,6
@@
lnat countNurseryBlocks ( void );
Stats 'n' DEBUG stuff
-------------------------------------------------------------------------- */
Stats 'n' DEBUG stuff
-------------------------------------------------------------------------- */
-extern ullong total_allocated;
-
lnat calcAllocated (void);
lnat calcLiveBlocks (void);
lnat calcLiveWords (void);
lnat calcAllocated (void);
lnat calcLiveBlocks (void);
lnat calcLiveWords (void);
@@
-148,11
+146,11
@@
extern bdescr *exec_block;
#define END_OF_STATIC_LIST ((StgClosure*)1)
#define END_OF_STATIC_LIST ((StgClosure*)1)
-void move_TSO (StgTSO *src, StgTSO *dest);
+void move_STACK (StgStack *src, StgStack *dest);
extern StgClosure * caf_list;
extern StgClosure * revertible_caf_list;
extern StgClosure * caf_list;
extern StgClosure * revertible_caf_list;
-END_RTS_PRIVATE
+#include "EndPrivate.h"
#endif /* SM_STORAGE_H */
#endif /* SM_STORAGE_H */