[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:
bdfd1672 by sheaf at 2024-06-20T11:02:03+02:00
fixup Reg.Liveness.equalBlockMaps

- - - - -


1 changed file:

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


Changes:

=====================================
compiler/GHC/CmmToAsm/Reg/Liveness.hs
=====================================
@@ -923,10 +923,15 @@ livenessSCCs platform blockmap done
 
                 -- probably the least efficient way to compare two
                 -- BlockMaps for equality.
+            equalBlockMaps
+                :: BlockMap (UniqSet RegFormat)
+                -> BlockMap (UniqSet RegFormat)
+                -> Bool
             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, map regFormatReg $ nonDetEltsUniqSet elt)
                     -- See Note [Unique Determinism and code generation]
 
 



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

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