[Git][ghc/ghc][wip/spj-unf-size] Comment out unused arg_is_free

[Simon Peyton Jones (@simonpj)]

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


Commits:
40dc3213 by Simon Peyton Jones at 2023-10-23T21:42:32+01:00
Comment out unused arg_is_free

- - - - -


1 changed file:

- compiler/GHC/Core/Unfold.hs


Changes:

=====================================
compiler/GHC/Core/Unfold.hs
=====================================
@@ -667,6 +667,7 @@ recordCaseOf vs (Tick _ e) = recordCaseOf vs e
 recordCaseOf vs (Cast e _) = recordCaseOf vs e
 recordCaseOf _     _       = Nothing
 
+{-
 arg_is_free :: CoreExpr -> Bool
 -- "free" means we don't charge for this
 -- occurrence in a function application
@@ -676,6 +677,7 @@ arg_is_free (Cast e _)    = arg_is_free e
 arg_is_free (Type {})     = True
 arg_is_free (Coercion {}) = True
 arg_is_free _             = False
+-}
 
 id_is_free :: Id -> Bool
 id_is_free id = not (isJoinId id) && isZeroBitTy (idType id)



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/40dc321331a0dea1910e857ca9182ab0903e2952
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/be725d01/attachment.html>