ghc/rts/Sanity.h

   1 /* -----------------------------------------------------------------------------
   2  * $Id: Sanity.h,v 1.2 1998/12/02 13:28:44 simonm Exp $
   3  *
   4  * Prototypes for functions in Sanity.c
   5  *
   6  * ---------------------------------------------------------------------------*/
   7
   8 #ifdef DEBUG
   9 /* debugging routines */
  10 extern void checkHeap  ( bdescr *bd, nat step );
  11 extern void checkStack ( StgPtr sp, StgPtr stack_end, StgUpdateFrame* su );
  12 extern void checkTSO   ( StgTSO* tso, nat step );
  13
  14 extern StgOffset checkClosure( StgClosure* p );
  15
  16 /* test whether an object is already on update list */
  17 extern rtsBool isBlackhole( StgTSO* tso, StgClosure* p );
  18
  19 #endif /* DEBUG */
  20