[Git][ghc/ghc][wip/ncg-simd] fixup Reg.Liveness.equalBlockMaps

[sheaf (@sheaf)]

sheaf pushed to branch wip/ncg-simd at Glasgow Haskell Compiler / GHC


Commits:
97dfd614 by sheaf at 2024-06-20T10:22:43+02:00
fixup Reg.Liveness.equalBlockMaps

- - - - -


1 changed file:

- compiler/GHC/CmmToAsm/Reg/Liveness.hs


Changes:

=====================================
compiler/GHC/CmmToAsm/Reg/Liveness.hs
=====================================
@@ -925,8 +925,9 @@ livenessSCCs platform blockmap done
                 -- BlockMaps for equality.
             equalBlockMaps a b
                 = a' == b'
-              where a' = mapToList a
-                    b' = mapToList b
+              where a' = map f $ mapToList a
+                    b' = map f $ mapToList b
+                    f (key,elt) = (key, nonDetEltsUniqSet elt)
                     -- See Note [Unique Determinism and code generation]
 
 



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/97dfd614413d06bc9ae87b2ba50bb5a9f25c0f0b
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/20240620/1438d50e/attachment.html>