From b4b8d87643ab42385fb9a36641be0f575b5b9d98 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 20 Feb 2008 13:01:39 +0000 Subject: [PATCH] round_to_mblocks: should use StgWord not nat --- includes/Block.h | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) { -- 1.7.10.4