Fix build for non-x86 architectures

[ghc-hetmet.git] / compiler / nativeGen / X86 / RegInfo.hs

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