1 /* -----------------------------------------------------------------------------
2 * $Id: Sanity.h,v 1.4 1999/02/05 16:02:52 simonm Exp $
4 * (c) The GHC Team, 1998-1999
6 * Prototypes for functions in Sanity.c
8 * ---------------------------------------------------------------------------*/
11 /* debugging routines */
12 extern void checkHeap ( bdescr *bd, StgPtr start );
13 extern void checkChain ( bdescr *bd );
14 extern void checkStack ( StgPtr sp, StgPtr stack_end, StgUpdateFrame* su );
15 extern void checkTSO ( StgTSO* tso );
17 extern StgOffset checkClosure( StgClosure* p );
19 /* test whether an object is already on update list */
20 extern rtsBool isBlackhole( StgTSO* tso, StgClosure* p );