diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2021-01-12 17:51:02 +0000 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2021-01-12 21:41:19 +0000 |
| commit | ca510f0682b0f2381e544e7e780949ba8c30e4eb (patch) | |
| tree | 52295d55ab90d0ee149aee8860247247b5d28414 | |
| parent | 0dba78410887ffc3d219639081e284ef7b67560a (diff) | |
| download | haskell-ca510f0682b0f2381e544e7e780949ba8c30e4eb.tar.gz | |
Make fields of CoreUnfolding strictwip/strict-coreunfolding
| -rw-r--r-- | compiler/GHC/Core.hs | 14 |
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: -- |