From: simonmar <unknown>
Date: Wed, 6 Apr 2005 10:13:35 +0000 (+0000)
Subject: [project @ 2005-04-06 10:13:35 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~791
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8dbb5f0f254ca3d899d9d28be33703eac988f345;hp=27031a96f70eb5240d37298a48337ee7e3085f4e;p=ghc-hetmet.git

[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
--- 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",