diff options
| author | Ben.Lippmeier@anu.edu.au <unknown> | 2010-02-15 01:47:19 +0000 |
|---|---|---|
| committer | Ben.Lippmeier@anu.edu.au <unknown> | 2010-02-15 01:47:19 +0000 |
| commit | 65b6152984ef04346806241585db59387759c642 (patch) | |
| tree | 6130acfee16bfc7f7d1cdf34cc58623fdbf23631 /compiler | |
| parent | 59b01a2fb6cd6a9af37f5fd6775f574bc53af02a (diff) | |
| download | haskell-65b6152984ef04346806241585db59387759c642.tar.gz | |
Fix build for non-x86 architectures
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/nativeGen/X86/RegInfo.hs | 2 | ||||
| -rw-r--r-- | compiler/nativeGen/X86/Regs.hs | 3 |
2 files changed, 5 insertions, 0 deletions
diff --git a/compiler/nativeGen/X86/RegInfo.hs b/compiler/nativeGen/X86/RegInfo.hs index eb8e82c82f..21b594e38f 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 77e1779efe..697528d6d1 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 ------------------------------------------------------------ |