[Git][ghc/ghc][wip/T22404] Wibble

[Simon Peyton Jones (@simonpj)]

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


Commits:
b5a78a03 by Simon Peyton Jones at 2023-02-02T16:32:13+00:00
Wibble

- - - - -


1 changed file:

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


Changes:

=====================================
compiler/GHC/Core/Opt/OccurAnal.hs
=====================================
@@ -2411,7 +2411,7 @@ occAnalArgs !env fun args !one_shots
         !(WUD arg_uds arg') = occAnal arg_env arg
         !(arg_env, one_shots')
             | isTypeArg arg = (env, one_shots)
-            | otherwise     = addOneShots env one_shots
+            | otherwise     = addOneShots env_args one_shots
 
 {-
 Applications are dealt with specially because we want
@@ -2701,7 +2701,7 @@ setRhsCtxt :: OccEncl -> OccEnv -> OccEnv
 setRhsCtxt ctxt !env
   = env { occ_encl = ctxt
         , occ_one_shots = []
-        , occ_join_points = emptyVarEnv  -- See Note [OccAnal for join points]
+        , occ_join_points = emptyVarEnv  -- See XXXNoteXXX [OccAnal for join points]
     }
 
 addOneShots :: OccEnv -> [OneShots] -> (OccEnv, [OneShots])



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/b5a78a03c56111645a4fd12383200bf78ee49002
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/20230202/2963689a/attachment-0001.html>