diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2019-01-05 08:40:19 +0300 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2019-01-05 08:40:19 +0300 |
| commit | 2880cb9840e268fdc33347a87a8276b03c227db8 (patch) | |
| tree | 1b37cca3ae1acf1c5b48e279d5337ee3facca2c5 | |
| parent | 53874834b779ad0dfbcde6650069c37926da1b79 (diff) | |
| download | haskell-2880cb9840e268fdc33347a87a8276b03c227db8.tar.gz | |
Dump Cmm with -ddump-cmm when building .cmm files
Fixes #16131
| -rw-r--r-- | compiler/main/HscMain.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/main/HscMain.hs b/compiler/main/HscMain.hs index c2c912451b..2ff2ca07af 100644 --- a/compiler/main/HscMain.hs +++ b/compiler/main/HscMain.hs @@ -1438,6 +1438,7 @@ hscCompileCmmFile hsc_env filename output_filename = runHsc hsc_env $ do mod_name = mkModuleName $ "Cmm$" ++ FilePath.takeFileName filename cmm_mod = mkModule (thisPackage dflags) mod_name (_, cmmgroup) <- cmmPipeline hsc_env (emptySRT cmm_mod) cmm + dumpIfSet_dyn dflags Opt_D_dump_cmm "Output Cmm" (ppr cmmgroup) rawCmms <- cmmToRawCmm dflags (Stream.yield cmmgroup) _ <- codeOutput dflags cmm_mod output_filename no_loc NoStubs [] [] rawCmms |