From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 16 Sep 2008 13:09:22 +0000 (+0000)
Subject: Fix a warning
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f2de7b4d310e0b8cc49b725d49ab03e94a106d1c;p=ghc-hetmet.git

Fix a warning
---

diff --git a/rts/Linker.c b/rts/Linker.c
index e5a5ae6..69b21a2 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -1633,7 +1633,7 @@ static int ocAllocateSymbolExtras( ObjectCode* oc, int count, int first )
             return 0;
         }
 #ifdef x86_64_HOST_ARCH
-        if (oc->symbol_extras > 0x80000000)
+        if ((StgWord)oc->symbol_extras > 0x80000000)
         {
             barf("mmap() returned memory outside 2Gb");
         }