[project @ 2005-04-06 10:13:35 by simonmar]

fix build on non-x86_64

diff --git a/ghc/rts/Linker.c b/ghc/rts/Linker.c
index 2f23c45..3633e54 100644 (file)
--- a/ghc/rts/Linker.c
+++ b/ghc/rts/Linker.c
@@ -3137,6 +3137,7 @@ do_Elf_Rela_relocations ( ObjectCode* oc, char* ehdrC,
             break;
 #        endif
 
+#if x86_64_HOST_OS
       case R_X86_64_64:
          *(Elf64_Xword *)P = value;
          break;
@@ -3152,6 +3153,7 @@ do_Elf_Rela_relocations ( ObjectCode* oc, char* ehdrC,
       case R_X86_64_32S:
          *(Elf64_Sword *)P = (Elf64_Sword)value;
          break;
+#endif
 
          default:
             errorBelch("%s: unhandled ELF relocation(RelA) type %d\n",