diff options
Diffstat (limited to 'compiler/GHC/Cmm/Pipeline.hs')
| -rw-r--r-- | compiler/GHC/Cmm/Pipeline.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/compiler/GHC/Cmm/Pipeline.hs b/compiler/GHC/Cmm/Pipeline.hs index 585606fcb2..6c9861d6ff 100644 --- a/compiler/GHC/Cmm/Pipeline.hs +++ b/compiler/GHC/Cmm/Pipeline.hs @@ -20,6 +20,7 @@ import GHC.Cmm.LayoutStack import GHC.Cmm.ProcPoint import GHC.Cmm.Sink import GHC.Cmm.Switch.Implement +import GHC.Cmm.Extend import GHC.Types.Unique.Supply import GHC.Driver.Session @@ -152,6 +153,10 @@ cpsTop logger platform cfg proc = -- See Note [unreachable blocks] dumps Opt_D_dump_cmm_cfg "Post control-flow optimisations" g + ----------- MachOp width extension --------------------------------- + g <- {-# SCC "cmmExtMachOps" #-} + runUniqSM $ mapM (cmmExtendMachOps platform) g + return (Left (cafEnv, g)) where dump = dumpGraph logger platform (cmmDoLinting cfg) |