summaryrefslogtreecommitdiff
path: root/rts/Arena.c
diff options
context:
space:
mode:
Diffstat (limited to 'rts/Arena.c')
-rw-r--r--rts/Arena.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Arena.c b/rts/Arena.c
index 653eb69706..361c6c41be 100644
--- a/rts/Arena.c
+++ b/rts/Arena.c
@@ -80,7 +80,7 @@ arenaAlloc( Arena *arena, size_t size )
return p;
} else {
// allocate a fresh block...
- req_blocks = (lnat)BLOCK_ROUND_UP(size) / BLOCK_SIZE;
+ req_blocks = (W_)BLOCK_ROUND_UP(size) / BLOCK_SIZE;
bd = allocGroup_lock(req_blocks);
arena_blocks += req_blocks;