Fix 32-bit breakage

[ghc-hetmet.git] / rts / Linker.c

diff --git a/rts/Linker.c b/rts/Linker.c
index 67a510b..84c69cb 100644 (file)
--- 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;
    }