From: Don Stewart <dons@galois.com>
Date: Sun, 16 Sep 2007 03:48:45 +0000 (+0000)
Subject: add support for EM_AMD64 elf machine type, openbsd/amd64 ghci works
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=1072c5e449b7c6bea18b8748751660dc650d7dfb;p=ghc-hetmet.git

add support for EM_AMD64 elf machine type, openbsd/amd64 ghci works
---

diff --git a/rts/Linker.c b/rts/Linker.c
index da62d58..6f77083 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -2903,8 +2903,12 @@ ocVerifyImage_ELF ( ObjectCode* oc )
 #ifdef EM_X86_64
       case EM_X86_64: IF_DEBUG(linker,debugBelch( "x86_64" )); break;
 #endif
+#ifdef EM_AMD64
+      case EM_AMD64: IF_DEBUG(linker,debugBelch( "amd64" )); break;
+#endif
       default:       IF_DEBUG(linker,debugBelch( "unknown" ));
-                     errorBelch("%s: unknown architecture", oc->fileName);
+                     errorBelch("%s: unknown architecture (e_machine == %d)"
+                                , oc->fileName, ehdr->e_machine);
                      return 0;
    }