diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2014-06-08 11:17:57 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2014-06-08 11:21:12 +0100 |
| commit | c0258176ad255ac42a68df75ac4287630a6c82c0 (patch) | |
| tree | 7e36d3c9e78ce691dd7fa8d42cb5b871b00916a0 /compiler/cmm/CmmPipeline.hs | |
| parent | 70f58ebfefd47b724a3b0aa3aca50442f937e6eb (diff) | |
| download | haskell-c0258176ad255ac42a68df75ac4287630a6c82c0.tar.gz | |
Don't use showPass in the backend (#8973)
Diffstat (limited to 'compiler/cmm/CmmPipeline.hs')
| -rw-r--r-- | compiler/cmm/CmmPipeline.hs | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/compiler/cmm/CmmPipeline.hs b/compiler/cmm/CmmPipeline.hs index 825ffb89d8..4314695201 100644 --- a/compiler/cmm/CmmPipeline.hs +++ b/compiler/cmm/CmmPipeline.hs @@ -38,8 +38,6 @@ cmmPipeline :: HscEnv -- Compilation env including cmmPipeline hsc_env topSRT prog = do let dflags = hsc_dflags hsc_env - showPass dflags "CPSZ" - tops <- {-# SCC "tops" #-} mapM (cpsTop hsc_env) prog (topSRT, cmms) <- {-# SCC "doSRTs" #-} doSRTs dflags topSRT tops |