PageRenderTime 50ms CodeModel.GetById 25ms RepoModel.GetById 1ms app.codeStats 0ms

/compiler/nativeGen/X86/RegInfo.hs

https://bitbucket.org/carter/ghc
Haskell | 75 lines | 54 code | 15 blank | 6 comment | 0 complexity | 3ca39e1242345c5c42dda168d5d24346 MD5 | raw file
    

  1. 

  2. {-# OPTIONS -fno-warn-tabs #-}
    3. 

  3. -- The above warning supression flag is a temporary kludge.
    4. 

  4. -- While working on this module you are encouraged to remove it and
    5. 

  5. -- detab the module (please do the detabbing in a separate patch). See
    6. 

  6. --     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#TabsvsSpaces
    7. 

  7. -- for details
    8. 

  8. 

  9. module X86.RegInfo (
    10. 

  10. 	mkVirtualReg,
    11. 

  11. 	regDotColor
    12. 

  12. )
    13. 

  13. 

  14. where
    15. 

  15. 

  16. #include "nativeGen/NCG.h"
    17. 

  17. #include "HsVersions.h"
    18. 

  18. 

  19. import Size
    20. 

  20. import Reg
    21. 

  21. 

  22. import Outputable
    23. 

  23. import Platform
    24. 

  24. import Unique
    25. 

  25. 

  26. import UniqFM
    27. 

  27. import X86.Regs
    28. 

  28. 

  29. 

  30. mkVirtualReg :: Unique -> Size -> VirtualReg
    31. 

  31. mkVirtualReg u size
    32. 

  32.    = case size of
    33. 

  33.         FF32	-> VirtualRegSSE u
    34. 

  34.         FF64	-> VirtualRegSSE u
    35. 

  35.         FF80	-> VirtualRegD   u
    36. 

  36.         _other  -> VirtualRegI   u
    37. 

  37. 

  38. regDotColor :: Platform -> RealReg -> SDoc
    39. 

  39. regDotColor platform reg
    40. 

  40.  = let Just str = lookupUFM (regColors platform) reg
    41. 

  41.    in text str
    42. 

  42. 

  43. regColors :: Platform -> UniqFM [Char]
    44. 

  44. regColors platform = listToUFM (normalRegColors platform ++ fpRegColors)
    45. 

  45. 

  46. normalRegColors :: Platform -> [(Reg,String)]
    47. 

  47. normalRegColors platform
    48. 

  48.  | target32Bit platform = [ (eax, "#00ff00")
    49. 

  49.                           , (ebx, "#0000ff")
    50. 

  50.                           , (ecx, "#00ffff")
    51. 

  51.                           , (edx, "#0080ff") ]
    52. 

  52.  | otherwise            = [ (rax, "#00ff00"), (eax, "#00ff00")
    53. 

  53.                           , (rbx, "#0000ff"), (ebx, "#0000ff")
    54. 

  54.                           , (rcx, "#00ffff"), (ecx, "#00ffff")
    55. 

  55.                           , (rdx, "#0080ff"), (edx, "#00ffff")
    56. 

  56.                           , (r8,  "#00ff80")
    57. 

  57.                           , (r9,  "#008080")
    58. 

  58.                           , (r10, "#0040ff")
    59. 

  59.                           , (r11, "#00ff40")
    60. 

  60.                           , (r12, "#008040")
    61. 

  61.                           , (r13, "#004080")
    62. 

  62.                           , (r14, "#004040")
    63. 

  63.                           , (r15, "#002080") ]
    64. 

  64. 

  65. fpRegColors :: [(Reg,String)]
    66. 

  66. fpRegColors =
    67. 

  67.         [ (fake0, "#ff00ff")
    68. 

  68. 	, (fake1, "#ff00aa")
    69. 

  69. 	, (fake2, "#aa00ff")
    70. 

  70. 	, (fake3, "#aa00aa")
    71. 

  71. 	, (fake4, "#ff0055")
    72. 

  72. 	, (fake5, "#5500ff") ]
    73. 

  73. 

  74. 	++ zip (map regSingle [24..39]) (repeat "red")
    75. 

  75. 

  76.