[Git][ghc/ghc][wip/par-simpl] Try to fix

[Matthew Pickering (@mpickering)]

Matthew Pickering pushed to branch wip/par-simpl at Glasgow Haskell Compiler / GHC


Commits:
bea1328f by Matthew Pickering at 2022-11-23T13:46:07+00:00
Try to fix

- - - - -


1 changed file:

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


Changes:

=====================================
compiler/GHC/Core/Opt/OccurAnal.hs
=====================================
@@ -93,8 +93,8 @@ occurAnalysePgm :: Module         -- Used only in debug output
                 -> [CoreRule]           -- Local rules for imported Ids
                 -> CoreProgram -> ([(Int, CoreBind)], Map.Map Int [Int])
 occurAnalysePgm this_mod active_unf active_rule imp_rules binds
---  | isEmptyDetails final_usage && False
---  = occ_anald_binds
+   | isEmptyDetails final_usage
+  = (zip [0..] occ_anald_binds, Map.empty)
 
   | otherwise   -- See Note [Glomming]
   = warnPprTrace True "Glomming in" (hang (ppr this_mod <> colon)
@@ -107,8 +107,8 @@ occurAnalysePgm this_mod active_unf active_rule imp_rules binds
     init_env = initOccEnv { occ_rule_act = active_rule
                           , occ_unf_act  = active_unf }
 
-    (WithUsageDetails final_usage _) = go init_env binds
-    (WithUsageDetails _ occ_anald_glommed_binds, g)   = occAnalRecBind init_env TopLevel
+    (WithUsageDetails final_usage occ_anald_binds) = go init_env binds
+    (WithUsageDetails _ occ_anald_glommed_binds, g) = occAnalRecBind init_env TopLevel
                                                     imp_rule_edges
                                                     (flattenBinds binds)
                                                     initial_uds



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/bea1328fe8202fb87c6702da3e07cfb3e13195f7
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/20221123/bdbd26fc/attachment-0001.html>