From: benl@cse.unsw.edu.au <unknown>
Date: Wed, 3 Feb 2010 02:30:29 +0000 (+0000)
Subject: Cast to (void*) to stifle warning about signedness
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b482880da3b1a849ac8b6157ab693159cdc24998;p=ghc-hetmet.git

Cast to (void*) to stifle warning about signedness
---

diff --git a/rts/posix/OSMem.c b/rts/posix/OSMem.c
index 5d46e68..79c7fbf 100644
--- a/rts/posix/OSMem.c
+++ b/rts/posix/OSMem.c
@@ -158,10 +158,10 @@ gen_map_mblocks (lnat size)
     // unmap the slop bits around the chunk we allocated
     slop = (W_)ret & MBLOCK_MASK;
     
-    if (munmap(ret, MBLOCK_SIZE - slop) == -1) {
+    if (munmap((void*)ret, MBLOCK_SIZE - slop) == -1) {
       barf("gen_map_mblocks: munmap failed");
     }
-    if (slop > 0 && munmap(ret+size-slop, slop) == -1) {
+    if (slop > 0 && munmap((void*)(ret+size-slop), slop) == -1) {
       barf("gen_map_mblocks: munmap failed");
     }