[Git][ghc/ghc][wip/spj-unf-size] Another wibble

[Simon Peyton Jones (@simonpj)]

Simon Peyton Jones pushed to branch wip/spj-unf-size at Glasgow Haskell Compiler / GHC


Commits:
bb79ef2b by Simon Peyton Jones at 2023-10-23T17:42:02+01:00
Another wibble

- - - - -


1 changed file:

- compiler/GHC/Core/Unfold.hs


Changes:

=====================================
compiler/GHC/Core/Unfold.hs
=====================================
@@ -590,7 +590,9 @@ exprTree opts args expr
       where
         alt_alt_tree :: Id -> Alt Var -> AltTree
         alt_alt_tree v (Alt con bs rhs)
-          = AltTree con bs (10 `etAddN` go (add_alt_bndrs v bs) rhs)
+          = AltTree con val_bs (10 `etAddN` go (add_alt_bndrs v val_bs) rhs)
+          where
+            val_bs = filter isId bs
 
         add_alt_bndrs v bs
           | v `elemVarSet` avs = (avs `extendVarSetList` (b:bs), lvs)
@@ -1141,7 +1143,7 @@ keptCaseSize ic case_bndr alts
       where
         -- Must extend ic_bound, lest a captured variable is
         -- looked up in ic_free by lookupBndr
-        new_summaries :: [(Var,ArgSummary)]
+        new_summaries :: [(Id,ArgSummary)]
         new_summaries = [(b,ArgNoInfo) | b <- case_bndr:bndrs]
         ic' = ic { ic_bound = ic_bound ic `extendVarEnvList` new_summaries }
 



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/bb79ef2b991d24560d4c1b6cf94c9696e1e1149a
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/20231023/6852832c/attachment-0001.html>