projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
round_to_mblocks: should use StgWord not nat
[ghc-hetmet.git]
/
includes
/
Block.h
diff --git
a/includes/Block.h
b/includes/Block.h
index
dd3e201
..
7721765
100644
(file)
--- 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)
#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)) {
{
if (words > WORDS_PER_MBLOCK) {
if ((words % WORDS_PER_MBLOCK) < (WORDS_PER_MBLOCK / 2)) {