X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FX86%2FRegInfo.hs;fp=compiler%2FnativeGen%2FX86%2FRegInfo.hs;h=21b594e38faced9ae85dd1d266a7a395369a646b;hb=65b6152984ef04346806241585db59387759c642;hp=eb8e82c82f0fdd7c1c4c49b287d870fa95425409;hpb=59b01a2fb6cd6a9af37f5fd6775f574bc53af02a;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