X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FX86%2FPpr.hs;fp=compiler%2FnativeGen%2FX86%2FPpr.hs;h=baf853cbc955f64d4c8f11709f07485a28ef850b;hb=5f402807168417e40fff86c7693720d3aba7d205;hp=0c8d1067e254ba50f48bf9b0a03a4982f944165b;hpb=763598e44760872c7ca68aca72457b7267a42947;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/X86/Ppr.hs b/compiler/nativeGen/X86/Ppr.hs
index 0c8d106..baf853c 100644
--- a/compiler/nativeGen/X86/Ppr.hs
+++ b/compiler/nativeGen/X86/Ppr.hs
@@ -275,6 +275,7 @@ pprReg s r
      ppr_reg_no _ = panic "X86.Ppr.ppr_reg_no: no match"
 #endif
 
+#if defined(i386_TARGET_ARCH) || defined(x86_64_TARGET_ARCH)
 ppr_reg_float :: Int -> LitString
 ppr_reg_float i = case i of
 	16 -> sLit "%fake0";  17 -> sLit "%fake1"
@@ -289,6 +290,7 @@ ppr_reg_float i = case i of
 	36 -> sLit "%xmm12";  37 -> sLit "%xmm13"
 	38 -> sLit "%xmm14";  39 -> sLit "%xmm15"
 	_  -> sLit "very naughty x86 register"
+#endif
 
 pprSize :: Size -> Doc
 pprSize x