From: Simon Marlow <simonmar@microsoft.com>
Date: Wed, 20 Feb 2008 13:01:39 +0000 (+0000)
Subject: round_to_mblocks: should use StgWord not nat
X-Git-Tag: Before_cabalised-GHC~242
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b4b8d87643ab42385fb9a36641be0f575b5b9d98;p=ghc-hetmet.git

round_to_mblocks: should use StgWord not nat
---

diff --git a/includes/Block.h b/includes/Block.h
index dd3e201..7721765 100644
--- a/includes/Block.h
+++ b/includes/Block.h
@@ -231,8 +231,8 @@ void freeChain_lock(bdescr *p);
 
 #define WORDS_PER_MBLOCK  (BLOCKS_PER_MBLOCK * BLOCK_SIZE_W)
 
-INLINE_HEADER nat
-round_to_mblocks(nat words)
+INLINE_HEADER StgWord
+round_to_mblocks(StgWord words)
 {
   if (words > WORDS_PER_MBLOCK) {
     if ((words % WORDS_PER_MBLOCK) < (WORDS_PER_MBLOCK / 2)) {