[project @ 2002-04-19 10:25:00 by simonmar]

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

diff --git a/ghc/rts/Sanity.c b/ghc/rts/Sanity.c
index af0a38d..ab2254d 100644 (file)
--- a/ghc/rts/Sanity.c
+++ b/ghc/rts/Sanity.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Sanity.c,v 1.28 2001/07/23 17:23:19 simonmar Exp $
+ * $Id: Sanity.c,v 1.30 2001/08/14 13:40:09 sewardj Exp $
  *
  * (c) The GHC Team, 1998-2001
  *
@@ -14,6 +14,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
+#include "PosixSource.h"
 #include "Rts.h"
 
 #ifdef DEBUG                                                   /* whole file */
@@ -59,7 +60,7 @@
 
 static StgOffset checkStackClosure   ( StgClosure* c );
 static StgOffset checkStackObject    ( StgPtr sp );
-static StgOffset checkSmallBitmap    ( StgPtr payload, StgWord32 bitmap );
+static StgOffset checkSmallBitmap    ( StgPtr payload, StgWord bitmap );
 static StgOffset checkLargeBitmap    ( StgPtr payload, StgLargeBitmap* );
 static void      checkClosureShallow ( StgClosure* p );
 
@@ -68,7 +69,7 @@ static void      checkClosureShallow ( StgClosure* p );
    -------------------------------------------------------------------------- */
 
 static StgOffset 
-checkSmallBitmap( StgPtr payload, StgWord32 bitmap )
+checkSmallBitmap( StgPtr payload, StgWord bitmap )
 {
     StgOffset i;
 
@@ -84,12 +85,12 @@ checkSmallBitmap( StgPtr payload, StgWord32 bitmap )
 static StgOffset 
 checkLargeBitmap( StgPtr payload, StgLargeBitmap* large_bitmap )
 {
-    StgWord32 bmp;
+    StgWord bmp;
     StgOffset i;
 
     i = 0;
     for (bmp=0; bmp<large_bitmap->size; bmp++) {
-       StgWord32 bitmap = large_bitmap->bitmap[bmp];
+       StgWord bitmap = large_bitmap->bitmap[bmp];
        for(; bitmap != 0; ++i, bitmap >>= 1 ) {
            if ((bitmap & 1) == 0) {
                checkClosure((StgClosure *)payload[i]);