X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FX86%2FRegInfo.hs;h=21b594e38faced9ae85dd1d266a7a395369a646b;hb=b2524b3960999fffdb3767900f58825903f6560f;hp=eb8e82c82f0fdd7c1c4c49b287d870fa95425409;hpb=335b9f366ac440259318777c4c07e4fa42fbbec6;p=ghc-hetmet.git

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