[Git][ghc/ghc][wip/romes/12935] Fix -fllvm hang

[Matthew Pickering (@mpickering)]

Matthew Pickering pushed to branch wip/romes/12935 at Glasgow Haskell Compiler / GHC


Commits:
942f75a9 by Matthew Pickering at 2024-08-07T15:44:36+01:00
Fix -fllvm hang

- - - - -


1 changed file:

- compiler/GHC/Cmm/Pipeline.hs


Changes:

=====================================
compiler/GHC/Cmm/Pipeline.hs
=====================================
@@ -119,11 +119,11 @@ cpsTop logger platform cfg dus proc =
       (proc_points, dus) <-
          if splitting_proc_points
             then do
-              let (pp, dus) = {-# SCC "minimalProcPointSet" #-} runUniqueDSM dus $
+              let (pp, dus') = {-# SCC "minimalProcPointSet" #-} runUniqueDSM dus $
                     minimalProcPointSet platform call_pps g
               dumpWith logger Opt_D_dump_cmm_proc "Proc points"
                     FormatCMM (pdoc platform l $$ ppr pp $$ pdoc platform g)
-              return (pp, dus)
+              return (pp, dus')
             else
               return (call_pps, dus)
 



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/942f75a90770238c1377d6f4b536490988dc883a
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/20240807/15070d5c/attachment.html>