X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fposix%2FOSMem.c;h=7216f0e03d8c13515282819c29d401ad8eaaa0bb;hb=4179e02ec7ec7aea79273cdcc166123c2ddd2063;hp=66f6309bb09565cb48cd617bd4591fafb35d521d;hpb=84de3b9d45a4da7f1a406223e262c014ab398a1e;p=ghc-hetmet.git

diff --git a/rts/posix/OSMem.c b/rts/posix/OSMem.c
index 66f6309..7216f0e 100644
--- a/rts/posix/OSMem.c
+++ b/rts/posix/OSMem.c
@@ -176,7 +176,7 @@ void *
 osGetMBlocks(nat n)
 {
   caddr_t ret;
-  lnat size = MBLOCK_SIZE * n;
+  lnat size = MBLOCK_SIZE * (lnat)n;
  
   if (next_request == 0) {
       // use gen_map_mblocks the first time.