Commit 2b64626e authored by Ian Lynagh's avatar Ian Lynagh
Browse files

seq the unfolding in setUnfoldingInfo

Contrary to the comment, for the module in #4367 at least, it is a big
improvement. Without it we get a huge spike of drag.
parent 40be9466
......@@ -64,7 +64,7 @@ module IdInfo (
TickBoxOp(..), TickBoxId,
) where
import CoreSyn ( CoreRule, setRuleIdName, seqRules, Unfolding, noUnfolding )
import CoreSyn
import Class
import PrimOp
......@@ -243,9 +243,8 @@ setUnfoldingInfoLazily info uf -- Lazy variant to avoid looking at the
setUnfoldingInfo :: IdInfo -> Unfolding -> IdInfo
setUnfoldingInfo info uf
-- We do *not* seq on the unfolding info, For some reason, doing so
-- actually increases residency significantly.
= info { unfoldingInfo = uf }
= seqUnfolding uf `seq`
info { unfoldingInfo = uf }
setArityInfo :: IdInfo -> ArityInfo -> IdInfo
setArityInfo info ar = info { arityInfo = ar }
......
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