From 5f402807168417e40fff86c7693720d3aba7d205 Mon Sep 17 00:00:00 2001 From: "Ben.Lippmeier@anu.edu.au" Date: Mon, 22 Feb 2010 07:51:44 +0000 Subject: [PATCH] Fix build for non-x86 arches again. --- compiler/nativeGen/X86/Ppr.hs | 2 ++ 1 file changed, 2 insertions(+) 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 -- 1.7.10.4