Comments only
authorSimon Peyton Jones <simonpj@microsoft.com>
Fri, 12 Jan 2018 17:31:06 +0000 (17:31 +0000)
committerSimon Peyton Jones <simonpj@microsoft.com>
Fri, 27 Apr 2018 07:26:33 +0000 (08:26 +0100)
compiler/simplCore/SimplUtils.hs
compiler/simplCore/Simplify.hs

index 7c0689d..fbf9b3e 100644 (file)
@@ -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)
 
index d92f6d7..249d19f 100644 (file)
@@ -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