PageRenderTime 45ms CodeModel.GetById 18ms RepoModel.GetById 1ms app.codeStats 0ms

/ghc-7.0.4/compiler/nativeGen/X86/RegInfo.hs

http://picorec.googlecode.com/
Haskell | 88 lines | 71 code | 15 blank | 2 comment | 2 complexity | 3f18e300e812b1ff6ca752ea3587c863 MD5 | raw file
Possible License(s): BSD-3-Clause, BSD-2-Clause 
    

  1. 

  2. module X86.RegInfo (
    3. 

  3. 	mkVirtualReg,
    4. 

  4. 	regDotColor
    5. 

  5. )
    6. 

  6. 

  7. where
    8. 

  8. 

  9. #include "nativeGen/NCG.h"
    10. 

  10. #include "HsVersions.h"
    11. 

  11. 

  12. import Size
    13. 

  13. import Reg
    14. 

  14. 

  15. import Outputable
    16. 

  16. import Unique
    17. 

  17. 

  18. #if i386_TARGET_ARCH || x86_64_TARGET_ARCH
    19. 

  19. import UniqFM
    20. 

  20. import X86.Regs
    21. 

  21. #endif
    22. 

  22. 

  23. 

  24. mkVirtualReg :: Unique -> Size -> VirtualReg
    25. 

  25. mkVirtualReg u size
    26. 

  26.    = case size of
    27. 

  27.         FF32	-> VirtualRegSSE u
    28. 

  28.         FF64	-> VirtualRegSSE u
    29. 

  29.         FF80	-> VirtualRegD   u
    30. 

  30.         _other  -> VirtualRegI   u
    31. 

  31. 

  32. 

  33. -- reg colors for x86
    34. 

  34. #if i386_TARGET_ARCH
    35. 

  35. regDotColor :: RealReg -> SDoc
    36. 

  36. regDotColor reg
    37. 

  37.  = let	Just	str	= lookupUFM regColors reg
    38. 

  38.    in	text str
    39. 

  39. 

  40. regColors :: UniqFM [Char]
    41. 

  41. regColors
    42. 

  42.  = listToUFM
    43. 

  43.  $  	[ (eax,	"#00ff00")
    44. 

  44. 	, (ebx,	"#0000ff")
    45. 

  45. 	, (ecx,	"#00ffff")
    46. 

  46. 	, (edx,	"#0080ff") ]
    47. 

  47.         ++ fpRegColors
    48. 

  48. 

  49. -- reg colors for x86_64
    50. 

  50. #elif x86_64_TARGET_ARCH
    51. 

  51. regDotColor :: RealReg -> SDoc
    52. 

  52. regDotColor reg
    53. 

  53.  = let	Just	str	= lookupUFM regColors reg
    54. 

  54.    in	text str
    55. 

  55. 

  56. regColors :: UniqFM [Char]
    57. 

  57. regColors
    58. 

  58.  = listToUFM
    59. 

  59.  $	[ (rax, "#00ff00"), (eax, "#00ff00")
    60. 

  60. 	, (rbx,	"#0000ff"), (ebx, "#0000ff")
    61. 

  61. 	, (rcx,	"#00ffff"), (ecx, "#00ffff")
    62. 

  62. 	, (rdx,	"#0080ff"), (edx, "#00ffff")
    63. 

  63. 	, (r8,  "#00ff80")
    64. 

  64. 	, (r9,  "#008080")
    65. 

  65. 	, (r10, "#0040ff")
    66. 

  66. 	, (r11, "#00ff40")
    67. 

  67. 	, (r12, "#008040")
    68. 

  68. 	, (r13, "#004080")
    69. 

  69. 	, (r14, "#004040")
    70. 

  70. 	, (r15, "#002080") ]
    71. 

  71. 	++ fpRegColors
    72. 

  72. #else
    73. 

  73. regDotColor :: Reg -> SDoc
    74. 

  74. regDotColor	= panic "not defined"
    75. 

  75. #endif
    76. 

  76. 

  77. #if i386_TARGET_ARCH || x86_64_TARGET_ARCH
    78. 

  78. fpRegColors :: [(Reg,String)]
    79. 

  79. fpRegColors =
    80. 

  80.         [ (fake0, "#ff00ff")
    81. 

  81. 	, (fake1, "#ff00aa")
    82. 

  82. 	, (fake2, "#aa00ff")
    83. 

  83. 	, (fake3, "#aa00aa")
    84. 

  84. 	, (fake4, "#ff0055")
    85. 

  85. 	, (fake5, "#5500ff") ]
    86. 

  86. 

  87. 	++ zip (map regSingle [24..39]) (repeat "red")
    88. 

  88. #endif
    89. 

  89.