Fix build for non-x86 architectures

diff --git a/compiler/nativeGen/X86/RegInfo.hs b/compiler/nativeGen/X86/RegInfo.hs
index eb8e82c..21b594e 100644 (file)
--- a/compiler/nativeGen/X86/RegInfo.hs
+++ b/compiler/nativeGen/X86/RegInfo.hs
@@ -74,6 +74,7 @@ regDotColor :: Reg -> SDoc
 regDotColor    = panic "not defined"
 #endif
 
+#if i386_TARGET_ARCH || x86_64_TARGET_ARCH
 fpRegColors :: [(Reg,String)]
 fpRegColors =
         [ (fake0, "#ff00ff")
@@ -84,3 +85,4 @@ fpRegColors =
        , (fake5, "#5500ff") ]
 
        ++ zip (map regSingle [24..39]) (repeat "red")
+#endif

diff --git a/compiler/nativeGen/X86/Regs.hs b/compiler/nativeGen/X86/Regs.hs
index 77e1779..697528d 100644 (file)
--- a/compiler/nativeGen/X86/Regs.hs
+++ b/compiler/nativeGen/X86/Regs.hs
@@ -281,9 +281,12 @@ regNames
    = ["%eax", "%ebx", "%ecx", "%edx", "%esi", "%edi", "%ebp", "%esp"]
 #elif x86_64_TARGET_ARCH
    = ["%rax", "%rbx", "%rcx", "%rdx", "%rsi", "%rdi", "%rbp", "%rsp" ]
+#else
+   = []
 #endif
 
 
+
 -- machine specific ------------------------------------------------------------