projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Refactor MachRegs.trivColorable to do unboxed accumulation
[ghc-hetmet.git]
/
compiler
/
nativeGen
/
GraphOps.hs
diff --git
a/compiler/nativeGen/GraphOps.hs
b/compiler/nativeGen/GraphOps.hs
index
f620d8a
..
f918fd2
100644
(file)
--- a/
compiler/nativeGen/GraphOps.hs
+++ b/
compiler/nativeGen/GraphOps.hs
@@
-28,7
+28,6
@@
import UniqFM
import Data.List hiding (union)
import Data.Maybe
import Data.List hiding (union)
import Data.Maybe
-
-- | Lookup a node from the graph.
lookupNode
:: Uniquable k
-- | Lookup a node from the graph.
lookupNode
:: Uniquable k
@@
-447,6
+446,7
@@
setColor u color
u
u
+{-# INLINE adjustWithDefaultUFM #-}
adjustWithDefaultUFM
:: Uniquable k
=> (a -> a) -> a -> k
adjustWithDefaultUFM
:: Uniquable k
=> (a -> a) -> a -> k
@@
-458,7
+458,7
@@
adjustWithDefaultUFM f def k map
map
k def
map
k def
-
+{-# INLINE adjustUFM #-}
adjustUFM
:: Uniquable k
=> (a -> a)
adjustUFM
:: Uniquable k
=> (a -> a)