diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2017-05-14 15:33:21 +0100 |
---|---|---|
committer | Matthew Pickering <matthewtpickering@gmail.com> | 2017-05-14 15:33:21 +0100 |
commit | ca45aa68706e6bb2e9ad785749c31da8027ad495 (patch) | |
tree | 6db355f6b7564a5b916b340c0c3e5a2d5a1cf40e | |
parent | 5a247bea70ce1a2c971928c4300970d3a7f269d4 (diff) | |
download | haskell-ca45aa68706e6bb2e9ad785749c31da8027ad495.tar.gz |
more aggressivewip/cross-spec-constr
-rw-r--r-- | compiler/specialise/SpecConstr.hs | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/compiler/specialise/SpecConstr.hs b/compiler/specialise/SpecConstr.hs index 2467611379..97a0126b7c 100644 --- a/compiler/specialise/SpecConstr.hs +++ b/compiler/specialise/SpecConstr.hs @@ -828,13 +828,8 @@ wantSpecImport dflags unf BootUnfolding -> False OtherCon {} -> False DFunUnfolding {} -> True - CoreUnfolding { uf_src = src, uf_guidance = _guidance } - | gopt Opt_SpecialiseAggressively dflags -> True - | isStableSource src -> True - -- Specialise even INLINE things; it hasn't inlined yet, - -- so perhaps it never will. Moreover it may have calls - -- inside it that we want to specialise - | otherwise -> False -- Stable, not INLINE, hence INLINABLE + CoreUnfolding { uf_src = src, uf_guidance = _guidance } -> True + {- ************************************************************************ * * |