diff options
Diffstat (limited to 'compiler/GHC/Cmm/Dataflow.hs')
| -rw-r--r-- | compiler/GHC/Cmm/Dataflow.hs | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/compiler/GHC/Cmm/Dataflow.hs b/compiler/GHC/Cmm/Dataflow.hs index ad1c37ace2..9883853e4a 100644 --- a/compiler/GHC/Cmm/Dataflow.hs +++ b/compiler/GHC/Cmm/Dataflow.hs @@ -27,7 +27,7 @@ module GHC.Cmm.Dataflow , Fact, FactBase , getFact, mkFactBase , analyzeCmmFwd, analyzeCmmBwd - , rewriteCmmBwd + , rewriteCmmFwd, rewriteCmmBwd , changedIf , joinOutFacts , joinFacts @@ -175,6 +175,15 @@ rewriteCmmBwd -> UniqSM (GenCmmGraph node, FactBase f) rewriteCmmBwd = rewriteCmm Bwd +rewriteCmmFwd + :: (NonLocal node) + => DataflowLattice f + -> RewriteFun' node f + -> GenCmmGraph node + -> FactBase f + -> UniqSM (GenCmmGraph node, FactBase f) +rewriteCmmFwd = rewriteCmm Fwd + rewriteCmm :: (NonLocal node) => Direction |