rts/Sanity.h

   1 /* -----------------------------------------------------------------------------
   2  *
   3  * (c) The GHC Team, 1998-1999
   4  *
   5  * Prototypes for functions in Sanity.c
   6  *
   7  * ---------------------------------------------------------------------------*/
   8
   9 #ifndef SANITY_H
  10 #define SANITY_H
  11
  12 #ifdef DEBUG
  13
  14 BEGIN_RTS_PRIVATE
  15
  16 # if defined(PAR)
  17 # define PVM_PE_MASK    0xfffc0000
  18 # define MAX_PVM_PES    MAX_PES
  19 # define MAX_PVM_TIDS   MAX_PES
  20 # define MAX_SLOTS      100000
  21 # endif
  22
  23 /* debugging routines */
  24 void checkHeap      ( bdescr *bd );
  25 void checkHeapChunk ( StgPtr start, StgPtr end );
  26 void checkLargeObjects ( bdescr *bd );
  27 void checkTSO       ( StgTSO* tso );
  28 void checkGlobalTSOList ( rtsBool checkTSOs );
  29 void checkStaticObjects ( StgClosure* static_objects );
  30 void checkStackChunk    ( StgPtr sp, StgPtr stack_end );
  31 StgOffset checkStackFrame ( StgPtr sp );
  32 StgOffset checkClosure  ( StgClosure* p );
  33
  34 void checkMutableList   ( bdescr *bd, nat gen );
  35 void checkMutableLists ( rtsBool checkTSOs );
  36
  37 void checkBQ (StgTSO *bqe, StgClosure *closure);
  38
  39 END_RTS_PRIVATE
  40
  41 #endif /* DEBUG */
  42
  43 #endif /* SANITY_H */