diff options
| author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2022-12-30 01:23:18 +0100 |
|---|---|---|
| committer | Andreas Klebinger <klebinger.andreas@gmx.at> | 2022-12-30 01:23:18 +0100 |
| commit | 982094e2177e6434978fb5f6a9d45051eb000cb8 (patch) | |
| tree | dac82ff296da74a8f5cfa09472a5f0f2d6e725ec | |
| parent | 8da7e63dfcefa07dd4f9ae070bd8252c0f8ced46 (diff) | |
| download | haskell-wip/andreask/inlineable-threshold.tar.gz | |
Try never updating unfolding guidancewip/andreask/inlineable-threshold
| -rw-r--r-- | compiler/GHC/Core/Opt/Simplify/Iteration.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Core/Opt/Simplify/Iteration.hs b/compiler/GHC/Core/Opt/Simplify/Iteration.hs index 1e8126b2c2..f5578a6c05 100644 --- a/compiler/GHC/Core/Opt/Simplify/Iteration.hs +++ b/compiler/GHC/Core/Opt/Simplify/Iteration.hs @@ -4280,8 +4280,8 @@ simplStableUnfolding env bind_cxt id rhs_ty id_arity unf opt_rhs -- based on the size of the optimized core. After all this is what the unfolding -- will optimize to eventually! _other -> do - let rhs_guide = calcUnfoldingGuidance uf_opts (is_top_lvl && is_bottoming) opt_rhs - return (mkCoreUnfolding src is_top_lvl unf_expr' rhs_guide) + -- Otherwise keep as is. + return (mkCoreUnfolding src is_top_lvl unf_expr' guide) -- return $ CoreUnfolding { uf_tmpl = unf_expr', uf_src = src, uf_guidance = rhs_guide } } |