diff options
Diffstat (limited to 'compiler/codeGen/CodeGen.lhs')
| -rw-r--r-- | compiler/codeGen/CodeGen.lhs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/codeGen/CodeGen.lhs b/compiler/codeGen/CodeGen.lhs index f8898450ef..9c936d3281 100644 --- a/compiler/codeGen/CodeGen.lhs +++ b/compiler/codeGen/CodeGen.lhs @@ -75,8 +75,7 @@ codeGen dflags this_mod data_tycons cost_centre_info stg_binds hpc_info st <- readIORef cgref let (a,st') = runC dflags this_mod st fcode - dumpIfSet_dyn dflags Opt_D_dump_cmm "Cmm" $ - pprPlatform (targetPlatform dflags) a + dumpIfSet_dyn dflags Opt_D_dump_cmm "Cmm" $ ppr a -- NB. stub-out cgs_tops and cgs_stmts. This fixes -- a big space leak. DO NOT REMOVE! |