X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FSanity.h;h=f302bc22b1843216dc194d6a0d34a922ce45f5e7;hb=648979d03f9b27f7f813d3a08bf30bf0f17c54ee;hp=5c963b4c236eb4f58fca5f5b0d2aeaaea1692406;hpb=2726a2f10256710cc6ed80b1098cb32e121e1be7;p=ghc-hetmet.git

diff --git a/rts/sm/Sanity.h b/rts/sm/Sanity.h
index 5c963b4..f302bc2 100644
--- 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
@@ -21,9 +21,9 @@ BEGIN_RTS_PRIVATE
 # endif
 
 /* debugging routines */
-void checkSanity        ( rtsBool check_heap );
+void checkSanity        ( rtsBool after_gc, rtsBool major_gc );
 void checkNurserySanity ( nursery *nursery );
-void checkHeap          ( bdescr *bd );
+void checkHeapChain     ( bdescr *bd );
 void checkHeapChunk     ( StgPtr start, StgPtr end );
 void checkLargeObjects  ( bdescr *bd );
 void checkTSO           ( StgTSO* tso );
@@ -33,16 +33,13 @@ void checkStackChunk    ( StgPtr sp, StgPtr stack_end );
 StgOffset checkStackFrame ( StgPtr sp );
 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 */