diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2018-01-12 17:31:06 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2018-04-27 08:26:33 +0100 |
| commit | 693857f3a890dd061e19c70d4863b2258d97ff09 (patch) | |
| tree | d73e81c72d147867ff5569a8e12c38b0c1210ebe | |
| parent | 3d38e8284b7382844f9862e8d8afbae9c7248b09 (diff) | |
| download | haskell-693857f3a890dd061e19c70d4863b2258d97ff09.tar.gz | |
Comments only
| -rw-r--r-- | compiler/simplCore/SimplUtils.hs | 3 | ||||
| -rw-r--r-- | compiler/simplCore/Simplify.hs | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/compiler/simplCore/SimplUtils.hs b/compiler/simplCore/SimplUtils.hs index 7c0689d9be..fbf9b3ee89 100644 --- a/compiler/simplCore/SimplUtils.hs +++ b/compiler/simplCore/SimplUtils.hs @@ -1116,7 +1116,8 @@ preInlineUnconditionally env top_lvl bndr rhs rhs_env | not active = Nothing | isTopLevel top_lvl && isBottomingId bndr = Nothing -- Note [Top-level bottoming Ids] | isCoVar bndr = Nothing -- Note [Do not inline CoVars unconditionally] - | isExitJoinId bndr = Nothing -- Note [Do not inline exit join points] in Exitify + | isExitJoinId bndr = Nothing -- Note [Do not inline exit join points] + -- in module Exitify | not (one_occ (idOccInfo bndr)) = Nothing | not (isStableUnfolding unf) = Just (extend_subst_with rhs) diff --git a/compiler/simplCore/Simplify.hs b/compiler/simplCore/Simplify.hs index d92f6d7e44..249d19f5ca 100644 --- a/compiler/simplCore/Simplify.hs +++ b/compiler/simplCore/Simplify.hs @@ -3292,7 +3292,7 @@ simplLetUnfolding env top_lvl cont_mb id new_rhs rhs_ty unf | isStableUnfolding unf = simplStableUnfolding env top_lvl cont_mb id unf rhs_ty | isExitJoinId id - = return noUnfolding -- see Note [Do not inline exit join points] + = return noUnfolding -- See Note [Do not inline exit join points] in Exitify | otherwise = mkLetUnfolding (seDynFlags env) top_lvl InlineRhs id new_rhs |