From: simonm <unknown>
Date: Wed, 3 Mar 1999 17:22:11 +0000 (+0000)
Subject: [project @ 1999-03-03 17:22:11 by simonm]
X-Git-Tag: Approximately_9120_patches~6438
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=506416a6c5444a3aaa4e12ad0027dda31103d0b5;hp=e311d69b80d3e64a5f26afaa8e4eebd0f3be3cc6;p=ghc-hetmet.git

[project @ 1999-03-03 17:22:11 by simonm]
Nat --> Word
---

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