Commit 16cc37ff authored by Simon Marlow's avatar Simon Marlow
Browse files

make some debug output conditional on -ddump-cmmz

parent 3f2eeeed
......@@ -82,7 +82,7 @@ cpsTop hsc_env (CmmProc h@(TopInfo {stack_info=StackInfo {arg_space=entry_off}})
return call_pps
let noncall_pps = proc_points `setDifference` call_pps
when (not (setNull noncall_pps)) $
when (not (setNull noncall_pps) && dopt Opt_D_dump_cmmz dflags) $
pprTrace "Non-call proc points: " (ppr noncall_pps) $ return ()
----------- Sink and inline assignments *before* stack layout -----------
......
Markdown is supported
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