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/Block.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/Block.hs')
| -rw-r--r-- | compiler/GHC/Cmm/Dataflow/Block.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/GHC/Cmm/Dataflow/Block.hs b/compiler/GHC/Cmm/Dataflow/Block.hs index f3876e241c..1927ae4a5a 100644 --- a/compiler/GHC/Cmm/Dataflow/Block.hs +++ b/compiler/GHC/Cmm/Dataflow/Block.hs @@ -17,6 +17,7 @@ module GHC.Cmm.Dataflow.Block , blockCons , blockFromList , blockJoin + , blockJoinList , blockJoinHead , blockJoinTail , blockSnoc @@ -133,6 +134,9 @@ blockJoinTail b t = b `cat` BlockOC BNil t blockJoin :: n C O -> Block n O O -> n O C -> Block n C C blockJoin f b t = BlockCC f b t +blockJoinList :: n C O -> [n O O] -> n O C -> Block n C C +blockJoinList f b t = BlockCC f (blockFromList b) t + blockAppend :: Block n e O -> Block n O x -> Block n e x blockAppend = cat |