projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove some dead code from VectType
[ghc-hetmet.git]
/
compiler
/
nativeGen
/
RegAllocStats.hs
diff --git
a/compiler/nativeGen/RegAllocStats.hs
b/compiler/nativeGen/RegAllocStats.hs
index
9f8415f
..
58a69fa
100644
(file)
--- a/
compiler/nativeGen/RegAllocStats.hs
+++ b/
compiler/nativeGen/RegAllocStats.hs
@@
-30,7
+30,7
@@
import MachInstrs
import Cmm
import Outputable
import Cmm
import Outputable
-import LazyUniqFM
+import UniqFM
import UniqSet
import State
import UniqSet
import State
@@
-291,11
+291,10
@@
regColors
, (fake3, "#aa00aa")
, (fake4, "#ff0055")
, (fake5, "#5500ff") ]
, (fake3, "#aa00aa")
, (fake4, "#ff0055")
, (fake5, "#5500ff") ]
-#endif
-- reg colors for x86_64
-- reg colors for x86_64
-#if x86_64_TARGET_ARCH
+#elif x86_64_TARGET_ARCH
regDotColor :: Reg -> SDoc
regDotColor reg
= let Just str = lookupUFM regColors reg
regDotColor :: Reg -> SDoc
regDotColor reg
= let Just str = lookupUFM regColors reg
@@
-317,17
+316,19
@@
regColors
, (r15, "#002080") ]
++ zip (map RealReg [16..31]) (repeat "red")
, (r15, "#002080") ]
++ zip (map RealReg [16..31]) (repeat "red")
-#endif
-- reg colors for ppc
-- reg colors for ppc
-#if powerpc_TARGET_ARCH
+#elif powerpc_TARGET_ARCH
regDotColor :: Reg -> SDoc
regDotColor reg
= case regClass reg of
RcInteger -> text "blue"
RcFloat -> text "red"
RcDouble -> text "green"
regDotColor :: Reg -> SDoc
regDotColor reg
= case regClass reg of
RcInteger -> text "blue"
RcFloat -> text "red"
RcDouble -> text "green"
+
+#else
+#error ToDo: regDotColor
#endif
#endif