Commit 5f402807 authored by Ben.Lippmeier@anu.edu.au's avatar Ben.Lippmeier@anu.edu.au
Browse files

Fix build for non-x86 arches again.

parent 763598e4
...@@ -275,6 +275,7 @@ pprReg s r ...@@ -275,6 +275,7 @@ pprReg s r
ppr_reg_no _ = panic "X86.Ppr.ppr_reg_no: no match" ppr_reg_no _ = panic "X86.Ppr.ppr_reg_no: no match"
#endif #endif
#if defined(i386_TARGET_ARCH) || defined(x86_64_TARGET_ARCH)
ppr_reg_float :: Int -> LitString ppr_reg_float :: Int -> LitString
ppr_reg_float i = case i of ppr_reg_float i = case i of
16 -> sLit "%fake0"; 17 -> sLit "%fake1" 16 -> sLit "%fake0"; 17 -> sLit "%fake1"
...@@ -289,6 +290,7 @@ ppr_reg_float i = case i of ...@@ -289,6 +290,7 @@ ppr_reg_float i = case i of
36 -> sLit "%xmm12"; 37 -> sLit "%xmm13" 36 -> sLit "%xmm12"; 37 -> sLit "%xmm13"
38 -> sLit "%xmm14"; 39 -> sLit "%xmm15" 38 -> sLit "%xmm14"; 39 -> sLit "%xmm15"
_ -> sLit "very naughty x86 register" _ -> sLit "very naughty x86 register"
#endif
pprSize :: Size -> Doc pprSize :: Size -> Doc
pprSize x pprSize x
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment