X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Frts%2FGC.c;h=9fbd0ca8e07931a127a1f69dbf16c2554cdec570;hb=506416a6c5444a3aaa4e12ad0027dda31103d0b5;hp=64108c9b4d3eebbed73cc8803134a9d4c4873f71;hpb=e311d69b80d3e64a5f26afaa8e4eebd0f3be3cc6;p=ghc-hetmet.git

diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c
index 64108c9..9fbd0ca 100644
--- a/ghc/rts/GC.c
+++ b/ghc/rts/GC.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: GC.c,v 1.45 1999/02/26 17:46:08 simonm Exp $
+ * $Id: GC.c,v 1.46 1999/03/03 17:22:11 simonm Exp $
  *
  * (c) The GHC Team 1998-1999
  *
@@ -1224,11 +1224,11 @@ loop:
       case CONSTR_0_2:
       case CONSTR_STATIC:
 	{ 
-	  StgNat32 offset = info->layout.selector_offset;
+	  StgWord32 offset = info->layout.selector_offset;
 
 	  /* check that the size is in range */
 	  ASSERT(offset < 
-		 (StgNat32)(selectee_info->layout.payload.ptrs + 
+		 (StgWord32)(selectee_info->layout.payload.ptrs + 
 		            selectee_info->layout.payload.nptrs));
 
 	  /* perform the selection! */
@@ -2225,7 +2225,7 @@ scavenge_stack(StgPtr p, StgPtr stack_end)
 {
   StgPtr q;
   const StgInfoTable* info;
-  StgNat32 bitmap;
+  StgWord32 bitmap;
 
   /* 
    * Each time around this loop, we are looking at a chunk of stack