PageRenderTime 54ms CodeModel.GetById 16ms RepoModel.GetById 0ms app.codeStats 0ms

/compiler/nativeGen/X86/RegInfo.hs

https://github.com/tibbe/ghc
Haskell | 75 lines | 54 code | 14 blank | 7 comment | 0 complexity | 860cc2bddbc0ad23d145598eec4f3a57 MD5 | raw file
    

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

  2. {-# OPTIONS_GHC -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://ghc.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.