Commit 65b61529 authored by Ben.Lippmeier@anu.edu.au's avatar Ben.Lippmeier@anu.edu.au
Browse files

Fix build for non-x86 architectures

parent 59b01a2f
...@@ -74,6 +74,7 @@ regDotColor :: Reg -> SDoc ...@@ -74,6 +74,7 @@ regDotColor :: Reg -> SDoc
regDotColor = panic "not defined" regDotColor = panic "not defined"
#endif #endif
#if i386_TARGET_ARCH || x86_64_TARGET_ARCH
fpRegColors :: [(Reg,String)] fpRegColors :: [(Reg,String)]
fpRegColors = fpRegColors =
[ (fake0, "#ff00ff") [ (fake0, "#ff00ff")
...@@ -84,3 +85,4 @@ fpRegColors = ...@@ -84,3 +85,4 @@ fpRegColors =
, (fake5, "#5500ff") ] , (fake5, "#5500ff") ]
++ zip (map regSingle [24..39]) (repeat "red") ++ zip (map regSingle [24..39]) (repeat "red")
#endif
...@@ -281,9 +281,12 @@ regNames ...@@ -281,9 +281,12 @@ regNames
= ["%eax", "%ebx", "%ecx", "%edx", "%esi", "%edi", "%ebp", "%esp"] = ["%eax", "%ebx", "%ecx", "%edx", "%esi", "%edi", "%ebp", "%esp"]
#elif x86_64_TARGET_ARCH #elif x86_64_TARGET_ARCH
= ["%rax", "%rbx", "%rcx", "%rdx", "%rsi", "%rdi", "%rbp", "%rsp" ] = ["%rax", "%rbx", "%rcx", "%rdx", "%rsi", "%rdi", "%rbp", "%rsp" ]
#else
= []
#endif #endif
-- machine specific ------------------------------------------------------------ -- machine specific ------------------------------------------------------------
......
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