[Git][ghc/ghc][wip/simplifier-tweaks] Wibbles

Simon Peyton Jones (@simonpj) gitlab at gitlab.haskell.org
Thu Jul 27 15:02:22 UTC 2023



Simon Peyton Jones pushed to branch wip/simplifier-tweaks at Glasgow Haskell Compiler / GHC


Commits:
2687f395 by Simon Peyton Jones at 2023-07-27T16:02:11+01:00
Wibbles

- - - - -


1 changed file:

- compiler/GHC/Core/Opt/Simplify/Iteration.hs


Changes:

=====================================
compiler/GHC/Core/Opt/Simplify/Iteration.hs
=====================================
@@ -3783,8 +3783,8 @@ mkDupableContWithDmds env _
   where
     thumbsUpPlanA (StrictBind {})              = True
     thumbsUpPlanA (Stop {})                    = True
-    thumbsUpPlanA (Select {})                  = False  -- Not quite sure of this one, but it
-                                                       -- benefits nofib digits-of-e1 quite a bit
+    thumbsUpPlanA (Select {})                  = False -- Using Plan B benefits carryPropagate
+                                                       -- in nofib digits-of-e2
     thumbsUpPlanA (StrictArg {})               = False
     thumbsUpPlanA (CastIt { sc_cont = k })     = thumbsUpPlanA k
     thumbsUpPlanA (TickIt _ k)                 = thumbsUpPlanA k
@@ -3956,7 +3956,7 @@ mkDupableAlt _env case_bndr jfloats (Alt con alt_bndrs alt_rhs_in)
 
 ok_to_dup_alt :: OutId -> [OutVar] -> OutExpr -> Bool
 -- See Note [Duplicating alternatives]
--- and Note [Duplicating join point] esp point (2)
+-- and Note [Duplicating join points] esp point (2)
 ok_to_dup_alt case_bndr alt_bndrs alt_rhs
   | exprIsTrivial alt_rhs
   = True   -- Includes things like (case x of {})



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/2687f3950d8f3f0d7f9e3d8f17e4ab9adf6ad09e

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/2687f3950d8f3f0d7f9e3d8f17e4ab9adf6ad09e
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20230727/f7717a7e/attachment-0001.html>


More information about the ghc-commits mailing list