projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Extra comment about WithRegUsage.
[ghc-hetmet.git]
/
compiler
/
cmm
/
CmmSpillReload.hs
diff --git
a/compiler/cmm/CmmSpillReload.hs
b/compiler/cmm/CmmSpillReload.hs
index
2dcfb02
..
4f24238
100644
(file)
--- a/
compiler/cmm/CmmSpillReload.hs
+++ b/
compiler/cmm/CmmSpillReload.hs
@@
-289,6
+289,10
@@
boundedOrdLattice n = DataflowLattice n minBound f
-- Custom node type we'll rewrite to. CmmAssign nodes to local
-- registers are replaced with AssignLocal nodes.
data WithRegUsage n e x where
-- Custom node type we'll rewrite to. CmmAssign nodes to local
-- registers are replaced with AssignLocal nodes.
data WithRegUsage n e x where
+ -- Plain will not contain CmmAssign nodes immediately after
+ -- transformation, but as we rewrite assignments, we may have
+ -- assignments here: these are assignments that should not be
+ -- rewritten!
Plain :: n e x -> WithRegUsage n e x
AssignLocal :: LocalReg -> CmmExpr -> RegUsage -> WithRegUsage n O O
Plain :: n e x -> WithRegUsage n e x
AssignLocal :: LocalReg -> CmmExpr -> RegUsage -> WithRegUsage n O O