Commit 8ba55ae0 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Add debug dump of the list of Cmm proc points

parent b3f9c910
......@@ -83,6 +83,7 @@ cpsTop hsc_env proc =
minimalProcPointSet (targetPlatform dflags) call_pps g
return call_pps
dumpIfSet_dyn dflags Opt_D_dump_cmm "Proc points" (ppr l $$ ppr proc_points $$ ppr g)
let noncall_pps = proc_points `setDifference` call_pps
when (not (setNull noncall_pps) && dopt Opt_D_dump_cmm dflags) $
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment