From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 19 Nov 2008 14:54:29 +0000 (+0000)
Subject: Fix 32-bit breakage
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=dab5dd18ebd4205f5019826c06e67373def11aeb

Fix 32-bit breakage
---

diff --git a/rts/Linker.c b/rts/Linker.c
index 67a510b..84c69cb 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -1300,9 +1300,9 @@ mmapForLinker (size_t bytes, nat flags, int fd)
    void *map_addr = NULL;
    void *result;
 
+#if defined(x86_64_HOST_ARCH)
 mmap_again:
 
-#if defined(x86_64_HOST_ARCH)
    if (mmap_32bit_base != 0) {
        map_addr = mmap_32bit_base;
    }