- , stateSpillLS :: UniqFM (Reg, Int, Int) } -- ^ spilled reg vs number of times vreg was loaded, stored
+ , stateSpillSL :: UniqFM (Reg, Int, Int) } -- ^ spilled reg vs number of times vreg was loaded, stored
-accSpillLS (r1, l1, s1) (r2, l2, s2)
- = (r1, l1 + l2, s1 + s2)
+accSpillSL (r1, s1, l1) (r2, s2, l2)
+ = (r1, s1 + s2, l1 + l2)
- ppr s
- = (vcat $ map (\(r, l, s) -> ppr r <+> int l <+> int s)
- $ eltsUFM (spillLoadStore s))
+ ppr stats
+ = (vcat $ map (\(r, s, l) -> ppr r <+> int s <+> int l)
+ $ eltsUFM (spillStoreLoad stats))