[Git][ghc/ghc][wip/andreask/cpr-dependent] Limit recursive constructors to depth 1

[Andreas Klebinger (@AndreasK)]

Andreas Klebinger pushed to branch wip/andreask/cpr-dependent at Glasgow Haskell Compiler / GHC


Commits:
4aff571b by Andreas Klebinger at 2023-02-21T15:50:11+01:00
Limit recursive constructors to depth 1

- - - - -


1 changed file:

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


Changes:

=====================================
compiler/GHC/Core/Opt/CprAnal.hs
=====================================
@@ -401,7 +401,7 @@ cprTransformDataConWork env con args
     in
       if rec_con
         then CprType 0 (ConCpr tag nested_cpr )
-        else CprType 0 (ConCpr tag $ map (trimCprToDepth 3) nested_cpr )
+        else CprType 0 (ConCpr tag $ map (trimCprToDepth 1) nested_cpr )
 
   | otherwise
   =



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/4aff571b00560df347a5aaaa9caae0ab3047d414
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/20230221/749ffb18/attachment.html>