X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FBlock.h;h=7721765147b46b3c6b65884ac35db58b7de75c00;hb=b4b8d87643ab42385fb9a36641be0f575b5b9d98;hp=dd3e201234b39837b054e8f0c34263b4e178d927;hpb=485b8d1a00a65aa565e3b30ef8f63fa2880d4093;p=ghc-hetmet.git

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)) {