diff options
Diffstat (limited to 'compiler/GHC/Cmm/Dataflow/Graph.hs')
| -rw-r--r-- | compiler/GHC/Cmm/Dataflow/Graph.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/GHC/Cmm/Dataflow/Graph.hs b/compiler/GHC/Cmm/Dataflow/Graph.hs index 953ccdabaa..0beaee7357 100644 --- a/compiler/GHC/Cmm/Dataflow/Graph.hs +++ b/compiler/GHC/Cmm/Dataflow/Graph.hs @@ -12,6 +12,7 @@ module GHC.Cmm.Dataflow.Graph , NonLocal(..) , addBlock , bodyList + , bodyToBlockList , emptyBody , labelsDefined , mapGraph @@ -56,6 +57,9 @@ emptyBody = mapEmpty bodyList :: Body' block n -> [(Label,block n C C)] bodyList body = mapToList body +bodyToBlockList :: Body n -> [Block n C C] +bodyToBlockList body = mapElems body + addBlock :: (NonLocal block, HasDebugCallStack) => block C C -> LabelMap (block C C) -> LabelMap (block C C) |