Commit e2ad2202 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com

Better debug output

parent 965782fa
......@@ -490,7 +490,8 @@ simplifyPgmIO pass@(CoreDoSimplify mode max_iterations switches)
= WARN( debugIsOn && (max_iterations > 2)
, ptext (sLit "Simplifier baling out after") <+> int max_iterations
<+> ptext (sLit "iterations")
<+> brackets (pprWithCommas (int . simplCountN) (reverse counts_so_far))
<+> (brackets $ hsep $ punctuate comma $
map (int . simplCountN) (reverse counts_so_far))
<+> ptext (sLit "Size =") <+> int (coreBindsSize binds) )
-- Subtract 1 from iteration_no to get the
......
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