A small GC optimisation

[ghc-hetmet.git] / rts / sm / Sanity.h

diff --git a/rts/sm/Sanity.h b/rts/sm/Sanity.h
index 1156222..602be54 100644 (file)
--- a/rts/sm/Sanity.h
+++ b/rts/sm/Sanity.h
@@ -11,7 +11,7 @@
 
 #ifdef DEBUG
 
-BEGIN_RTS_PRIVATE
+#include "BeginPrivate.h"
 
 # if defined(PAR)
 # define PVM_PE_MASK    0xfffc0000
@@ -22,7 +22,7 @@ BEGIN_RTS_PRIVATE
 
 /* debugging routines */
 void checkSanity        ( rtsBool check_heap );
-void checkNurserySanity ( step *stp );
+void checkNurserySanity ( nursery *nursery );
 void checkHeap          ( bdescr *bd );
 void checkHeapChunk     ( StgPtr start, StgPtr end );
 void checkLargeObjects  ( bdescr *bd );
@@ -36,11 +36,13 @@ StgOffset checkClosure  ( StgClosure* p );
 void checkMutableList   ( bdescr *bd, nat gen );
 void checkMutableLists  ( rtsBool checkTSOs );
 
+void checkRunQueue      (Capability *cap);
+
 void memInventory (rtsBool show);
 
 void checkBQ (StgTSO *bqe, StgClosure *closure);
 
-END_RTS_PRIVATE
+#include "EndPrivate.h"
 
 #endif /* DEBUG */