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
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
......@@ -281,9 +281,12 @@ regNames
= ["%eax", "%ebx", "%ecx", "%edx", "%esi", "%edi", "%ebp", "%esp"]
#elif x86_64_TARGET_ARCH
= ["%rax", "%rbx", "%rcx", "%rdx", "%rsi", "%rdi", "%rbp", "%rsp" ]
#else
= []
#endif
-- 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