ghc/rts/Sanity.h

   1 /* -----------------------------------------------------------------------------
   2  * $Id: Sanity.h,v 1.3 1999/01/13 17:25: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, StgPtr start );
  11 extern void checkChain ( bdescr *bd );
  12 extern void checkStack ( StgPtr sp, StgPtr stack_end, StgUpdateFrame* su );
  13 extern void checkTSO   ( StgTSO* tso );
  14
  15 extern StgOffset checkClosure( StgClosure* p );
  16
  17 /* test whether an object is already on update list */
  18 extern rtsBool isBlackhole( StgTSO* tso, StgClosure* p );
  19
  20 #endif /* DEBUG */
  21