X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FLinker.c;h=69b21a2098b3645bbb3cd983e3fe7fd4039c3b57;hb=582a99f2042ed92aa557b0823fd49ac01716cf26;hp=e5a5ae6be6dada5afe8725176e11c3252d0b4c6d;hpb=bf7e78fa99b8e73b33aeecc8e86776f42cff33d4;p=ghc-hetmet.git

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");
         }