[project @ 2005-03-10 14:03:28 by simonmar]

[ghc-hetmet.git] / ghc / rts / Sanity.h

diff --git a/ghc/rts/Sanity.h b/ghc/rts/Sanity.h
index eeba793..c527cbb 100644 (file)
--- a/ghc/rts/Sanity.h
+++ b/ghc/rts/Sanity.h
@@ -1,5 +1,4 @@
 /* -----------------------------------------------------------------------------
- * $Id: Sanity.h,v 1.10 2002/12/11 15:36:50 simonmar Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -27,8 +26,7 @@ extern void checkStackChunk    ( StgPtr sp, StgPtr stack_end );
 extern StgOffset checkStackFrame ( StgPtr sp );
 extern StgOffset checkClosure  ( StgClosure* p );
 
-extern void checkMutableList   ( StgMutClosure *p, nat gen );
-extern void checkMutOnceList   ( StgMutClosure *p, nat gen );
+extern void checkMutableList   ( bdescr *bd, nat gen );
 
 #if defined(GRAN)
 extern void checkTSOsSanity(void);