/* -----------------------------------------------------------------------------
- * $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
*
*
* ---------------------------------------------------------------------------*/
+#include "PosixSource.h"
#include "Rts.h"
#ifdef DEBUG /* whole file */
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 );
-------------------------------------------------------------------------- */
static StgOffset
-checkSmallBitmap( StgPtr payload, StgWord32 bitmap )
+checkSmallBitmap( StgPtr payload, StgWord bitmap )
{
StgOffset i;
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]);