#include "Capability.h"
-BEGIN_RTS_PRIVATE
+#include "BeginPrivate.h"
/* -----------------------------------------------------------------------------
Initialisation / De-initialisation
void initStorage(void);
void exitStorage(void);
-void freeStorage(void);
+void freeStorage(rtsBool free_heap);
/* -----------------------------------------------------------------------------
Storage manager state
doYouWantToGC( Capability *cap )
{
return (cap->r.rCurrentNursery->link == NULL ||
- cap->r.rNursery->n_large_blocks >= alloc_blocks_lim);
+ g0->n_large_blocks >= alloc_blocks_lim);
}
/* for splitting blocks groups in two */
Nursery manipulation
-------------------------------------------------------------------------- */
-extern step *nurseries;
+extern nursery *nurseries;
void resetNurseries ( void );
void resizeNurseries ( nat blocks );
Stats 'n' DEBUG stuff
-------------------------------------------------------------------------- */
-extern ullong total_allocated;
-
lnat calcAllocated (void);
lnat calcLiveBlocks (void);
lnat calcLiveWords (void);
lnat countOccupied (bdescr *bd);
lnat calcNeeded (void);
-HsInt64 getAllocations (void);
-
-#if defined(DEBUG)
-void memInventory (rtsBool show);
-void checkSanity (void);
-nat countBlocks (bdescr *);
-void checkNurserySanity (step *stp);
-#endif
/* ----------------------------------------------------------------------------
Storage manager internal APIs and globals
------------------------------------------------------------------------- */
+extern bdescr *exec_block;
+
#define END_OF_STATIC_LIST ((StgClosure*)1)
void move_TSO (StgTSO *src, StgTSO *dest);
extern StgClosure * caf_list;
extern StgClosure * revertible_caf_list;
-END_RTS_PRIVATE
+#include "EndPrivate.h"
#endif /* SM_STORAGE_H */