summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthew Pickering <matthewtpickering@gmail.com>2021-01-12 17:51:02 +0000
committerMatthew Pickering <matthewtpickering@gmail.com>2021-01-12 21:41:19 +0000
commitca510f0682b0f2381e544e7e780949ba8c30e4eb (patch)
tree52295d55ab90d0ee149aee8860247247b5d28414
parent0dba78410887ffc3d219639081e284ef7b67560a (diff)
downloadhaskell-wip/strict-coreunfolding.tar.gz
Make fields of CoreUnfolding strictwip/strict-coreunfolding
-rw-r--r--compiler/GHC/Core.hs14
1 files changed, 7 insertions, 7 deletions
diff --git a/compiler/GHC/Core.hs b/compiler/GHC/Core.hs
index 523c8e3d79..2bc91ca721 100644
--- a/compiler/GHC/Core.hs
+++ b/compiler/GHC/Core.hs
@@ -1491,18 +1491,18 @@ data Unfolding
-- (For NOINLINE, the phase, if any, is in the
-- InlinePragInfo for this Id.)
uf_tmpl :: CoreExpr, -- Template; occurrence info is correct
- uf_src :: UnfoldingSource, -- Where the unfolding came from
- uf_is_top :: Bool, -- True <=> top level binding
- uf_is_value :: Bool, -- exprIsHNF template (cached); it is ok to discard
+ uf_src :: !UnfoldingSource, -- Where the unfolding came from
+ uf_is_top :: !Bool, -- True <=> top level binding
+ uf_is_value :: !Bool, -- exprIsHNF template (cached); it is ok to discard
-- a `seq` on this variable
- uf_is_conlike :: Bool, -- True <=> applicn of constructor or CONLIKE function
+ uf_is_conlike :: !Bool, -- True <=> applicn of constructor or CONLIKE function
-- Cached version of exprIsConLike
- uf_is_work_free :: Bool, -- True <=> doesn't waste (much) work to expand
+ uf_is_work_free :: !Bool, -- True <=> doesn't waste (much) work to expand
-- inside an inlining
-- Cached version of exprIsCheap
- uf_expandable :: Bool, -- True <=> can expand in RULE matching
+ uf_expandable :: !Bool, -- True <=> can expand in RULE matching
-- Cached version of exprIsExpandable
- uf_guidance :: UnfoldingGuidance -- Tells about the *size* of the template.
+ uf_guidance :: !UnfoldingGuidance -- Tells about the *size* of the template.
}
-- ^ An unfolding with redundant cached information. Parameters:
--