[Git][ghc/ghc][wip/T22404] Try effect of removing fast path in occAnalBind

[Simon Peyton Jones (@simonpj)]

Simon Peyton Jones pushed to branch wip/T22404 at Glasgow Haskell Compiler / GHC


Commits:
35eb91c4 by Simon Peyton Jones at 2023-07-19T22:34:17+01:00
Try effect of removing fast path in occAnalBind

- - - - -


1 changed file:

- compiler/GHC/Core/Opt/OccurAnal.hs


Changes:

=====================================
compiler/GHC/Core/Opt/OccurAnal.hs
=====================================
@@ -973,6 +973,7 @@ occAnalBind !env lvl ire (NonRec bndr rhs) thing_inside combine
     else WUD (rhs_uds `orUDs` body_uds)    -- Note `orUDs`
              (combine [NonRec tagged_bndr rhs'] body)
 
+{-
   -- Fast path for top level, non-recursive bindings, with no rules
   -- This is a very common case.  Semantically though, you can delete this
   -- entire equation and fall through to the general case
@@ -997,6 +998,7 @@ occAnalBind !env lvl ire (NonRec bndr rhs) thing_inside combine
 
     in WUD (full_rhs_uds `andUDs` body_uds)      -- Note `andUDs`
            (combine [NonRec tagged_bndr rhs'] body)
+-}
 
   -- The normal case, including newly-discovered join points
   -- Analyse the body and /then/ the RHS



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/35eb91c40e0a67c748e494cf8fa2c7cfc42763da

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/35eb91c40e0a67c748e494cf8fa2c7cfc42763da
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/20230719/b5b2e4ed/attachment.html>