diff options
Diffstat (limited to 'compiler/cmm/CmmPipeline.hs')
| -rw-r--r-- | compiler/cmm/CmmPipeline.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/compiler/cmm/CmmPipeline.hs b/compiler/cmm/CmmPipeline.hs index af4f62a4a8..37dbd12525 100644 --- a/compiler/cmm/CmmPipeline.hs +++ b/compiler/cmm/CmmPipeline.hs @@ -11,6 +11,7 @@ import Cmm import CmmLint import CmmBuildInfoTables import CmmCommonBlockElim +import CmmImplementSwitchPlans import CmmProcPoint import CmmContFlowOpt import CmmLayoutStack @@ -71,6 +72,10 @@ cpsTop hsc_env proc = -- Any work storing block Labels must be performed _after_ -- elimCommonBlocks + g <- {-# SCC "createSwitchPlans" #-} + runUniqSM $ cmmImplementSwitchPlans dflags g + dump Opt_D_dump_cmm_switch "Post switch plan" g + ----------- Proc points ------------------------------------------------- let call_pps = {-# SCC "callProcPoints" #-} callProcPoints g proc_points <- |