/compiler/nativeGen/X86/RegInfo.hs

http://github.com/ghc/ghc · Haskell · 67 lines · 54 code · 12 blank · 1 comment · 1 complexity · d77ab8620648dfdd27c1174a616b00db MD5 · raw file 

    

  1. {-# LANGUAGE CPP #-}
    2. 

  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 Format
    13. 

  13. import Reg
    14. 

  14. 

  15. import Outputable
    16. 

  16. import Platform
    17. 

  17. import Unique
    18. 

  18. 

  19. import UniqFM
    20. 

  20. import X86.Regs
    21. 

  21. 

  22. 

  23. mkVirtualReg :: Unique -> Format -> VirtualReg
    24. 

  24. mkVirtualReg u format
    25. 

  25.    = case format of
    26. 

  26.         FF32    -> VirtualRegSSE u
    27. 

  27.         FF64    -> VirtualRegSSE u
    28. 

  28.         FF80    -> VirtualRegD   u
    29. 

  29.         _other  -> VirtualRegI   u
    30. 

  30. 

  31. regDotColor :: Platform -> RealReg -> SDoc
    32. 

  32. regDotColor platform reg
    33. 

  33.  = let Just str = lookupUFM (regColors platform) reg
    34. 

  34.    in text str
    35. 

  35. 

  36. regColors :: Platform -> UniqFM [Char]
    37. 

  37. regColors platform = listToUFM (normalRegColors platform ++ fpRegColors)
    38. 

  38. 

  39. normalRegColors :: Platform -> [(Reg,String)]
    40. 

  40. normalRegColors platform
    41. 

  41.  | target32Bit platform = [ (eax, "#00ff00")
    42. 

  42.                           , (ebx, "#0000ff")
    43. 

  43.                           , (ecx, "#00ffff")
    44. 

  44.                           , (edx, "#0080ff") ]
    45. 

  45.  | otherwise            = [ (rax, "#00ff00"), (eax, "#00ff00")
    46. 

  46.                           , (rbx, "#0000ff"), (ebx, "#0000ff")
    47. 

  47.                           , (rcx, "#00ffff"), (ecx, "#00ffff")
    48. 

  48.                           , (rdx, "#0080ff"), (edx, "#00ffff")
    49. 

  49.                           , (r8,  "#00ff80")
    50. 

  50.                           , (r9,  "#008080")
    51. 

  51.                           , (r10, "#0040ff")
    52. 

  52.                           , (r11, "#00ff40")
    53. 

  53.                           , (r12, "#008040")
    54. 

  54.                           , (r13, "#004080")
    55. 

  55.                           , (r14, "#004040")
    56. 

  56.                           , (r15, "#002080") ]
    57. 

  57. 

  58. fpRegColors :: [(Reg,String)]
    59. 

  59. fpRegColors =
    60. 

  60.         [ (fake0, "#ff00ff")
    61. 

  61.         , (fake1, "#ff00aa")
    62. 

  62.         , (fake2, "#aa00ff")
    63. 

  63.         , (fake3, "#aa00aa")
    64. 

  64.         , (fake4, "#ff0055")
    65. 

  65.         , (fake5, "#5500ff") ]
    66. 

  66. 

  67.         ++ zip (map regSingle [24..39]) (repeat "red")
    68.