9 #include "nativeGen/NCG.h"
10 #include "HsVersions.h"
18 #if i386_TARGET_ARCH || x86_64_TARGET_ARCH
24 mkVirtualReg :: Unique -> Size -> VirtualReg
26 | not (isFloatSize size) = VirtualRegI u
31 _ -> panic "mkVirtualReg"
36 regDotColor :: RealReg -> SDoc
38 = let Just str = lookupUFM regColors reg
41 regColors :: UniqFM [Char]
54 , (fake5, "#5500ff") ]
57 -- reg colors for x86_64
58 #elif x86_64_TARGET_ARCH
59 regDotColor :: RealReg -> SDoc
61 = let Just str = lookupUFM regColors reg
64 regColors :: UniqFM [Char]
67 $ [ (rax, "#00ff00"), (eax, "#00ff00")
68 , (rbx, "#0000ff"), (ebx, "#0000ff")
69 , (rcx, "#00ffff"), (ecx, "#00ffff")
70 , (rdx, "#0080ff"), (edx, "#00ffff")
80 ++ zip (map regSingle [16..31]) (repeat "red")
82 regDotColor :: Reg -> SDoc
83 regDotColor = panic "not defined"