From 65b6152984ef04346806241585db59387759c642 Mon Sep 17 00:00:00 2001 From: "Ben.Lippmeier@anu.edu.au" Date: Mon, 15 Feb 2010 01:47:19 +0000 Subject: [PATCH] Fix build for non-x86 architectures --- compiler/nativeGen/X86/RegInfo.hs | 2 ++ compiler/nativeGen/X86/Regs.hs | 3 +++ 2 files changed, 5 insertions(+) diff --git a/compiler/nativeGen/X86/RegInfo.hs b/compiler/nativeGen/X86/RegInfo.hs index eb8e82c..21b594e 100644 --- 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 --- 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 ------------------------------------------------------------ -- 1.7.10.4