rts/Linker.c: Fix compile error on Arm
authorErik de Castro Lopo <erikd@mega-nerd.com>
Sun, 22 May 2016 07:59:18 +0000 (17:59 +1000)
committerErik de Castro Lopo <erikd@mega-nerd.com>
Sun, 22 May 2016 09:37:08 +0000 (19:37 +1000)
Commit da3c1ebb8a left Arm with a compile error. This is a short term fixup
pending a much more through fix of removing as much CPP hackery as possible.

Test Plan: Validate on arm and x86_64

Reviewers: simonmar, austin, hsyl20, bgamari, Phyx

Reviewed By: Phyx

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D2254

rts/Linker.c

index e867d04..9deefca 100644 (file)
@@ -5754,9 +5754,12 @@ do_Elf_Rela_relocations ( ObjectCode* oc, char* ehdrC,
          IF_DEBUG(linker,debugBelch( "`%s' resolves to %p\n", symbol, (void*)S ));
       }
 
+#if defined(DEBUG) || defined(sparc_HOST_ARCH) || defined(powerpc_HOST_ARCH) \
+    || defined(x86_64_HOST_ARCH)
       IF_DEBUG(linker,debugBelch("Reloc: P = %p   S = %p   A = %p\n",
                                         (void*)P, (void*)S, (void*)A ));
       checkProddableBlock(oc, (void*)P, sizeof(Elf_Word));
+#endif
 
 #if defined(sparc_HOST_ARCH) || defined(powerpc_HOST_ARCH) || defined(x86_64_HOST_ARCH)
       value = S + A;