diff options
| author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2022-03-23 11:35:45 +0100 |
|---|---|---|
| committer | Andreas Klebinger <klebinger.andreas@gmx.at> | 2022-03-23 11:35:45 +0100 |
| commit | d50d2e071915f588716213ca6bbd0257a39a8f75 (patch) | |
| tree | 80273d61bbd8f9f3c884f807e6e92cf580f3a0bb /compiler/GHC/Cmm/Dataflow.hs | |
| parent | 80f9133e128abc61913d264ecd8b102517b266f5 (diff) | |
| download | haskell-wip/andreask/ghc_ext_width.tar.gz | |
Partially implemented subword extension pass.wip/andreask/ghc_ext_width
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 |