projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Generalized assignment rewriting pass.
[ghc-hetmet.git]
/
compiler
/
cmm
/
CmmCPS.hs
diff --git
a/compiler/cmm/CmmCPS.hs
b/compiler/cmm/CmmCPS.hs
index
6e97100
..
e2bbbdd
100644
(file)
--- a/
compiler/cmm/CmmCPS.hs
+++ b/
compiler/cmm/CmmCPS.hs
@@
-96,9
+96,8
@@
cpsTop hsc_env (CmmProc h@(TopInfo {stack_info=StackInfo {arg_space=entry_off}})
(dualLivenessWithInsertion procPoints) g
-- Insert spills at defns; reloads at return points
g <-
(dualLivenessWithInsertion procPoints) g
-- Insert spills at defns; reloads at return points
g <-
- -- pprTrace "pre insertLateReloads" (ppr g) $
- runOptimization $ insertLateReloads g -- Duplicate reloads just before uses
- dump Opt_D_dump_cmmz "Post late reloads" g
+ runOptimization $ rewriteAssignments g
+ dump Opt_D_dump_cmmz "Post rewrite assignments" g
g <-
-- pprTrace "post insertLateReloads" (ppr g) $
dual_rewrite runOptimization Opt_D_dump_cmmz "Dead Assignment Elimination"
g <-
-- pprTrace "post insertLateReloads" (ppr g) $
dual_rewrite runOptimization Opt_D_dump_cmmz "Dead Assignment Elimination"