9 #include "nativeGen/NCG.h"
10 #include "HsVersions.h"
18 #if i386_TARGET_ARCH || x86_64_TARGET_ARCH
24 mkVirtualReg :: Unique -> Size -> VirtualReg
27 FF32 -> VirtualRegSSE u
28 FF64 -> VirtualRegSSE u
30 _other -> VirtualRegI u
35 regDotColor :: RealReg -> SDoc
37 = let Just str = lookupUFM regColors reg
40 regColors :: UniqFM [Char]
49 -- reg colors for x86_64
50 #elif x86_64_TARGET_ARCH
51 regDotColor :: RealReg -> SDoc
53 = let Just str = lookupUFM regColors reg
56 regColors :: UniqFM [Char]
59 $ [ (rax, "#00ff00"), (eax, "#00ff00")
60 , (rbx, "#0000ff"), (ebx, "#0000ff")
61 , (rcx, "#00ffff"), (ecx, "#00ffff")
62 , (rdx, "#0080ff"), (edx, "#00ffff")
73 regDotColor :: Reg -> SDoc
74 regDotColor = panic "not defined"
77 #if i386_TARGET_ARCH || x86_64_TARGET_ARCH
78 fpRegColors :: [(Reg,String)]
85 , (fake5, "#5500ff") ]
87 ++ zip (map regSingle [24..39]) (repeat "red")