[Git][ghc/ghc][wip/T23576] Insert unconditional jumps before NEWBLOCK

[Jaro Reinders (@Noughtmare)]

Jaro Reinders pushed to branch wip/T23576 at Glasgow Haskell Compiler / GHC


Commits:
f8ac8be6 by Jaro Reinders at 2023-07-03T09:58:44+02:00
Insert unconditional jumps before NEWBLOCK

- - - - -


1 changed file:

- compiler/GHC/CmmToAsm/X86/CodeGen.hs


Changes:

=====================================
compiler/GHC/CmmToAsm/X86/CodeGen.hs
=====================================
@@ -659,6 +659,7 @@ iselExpr64 (CmmMachOp (MO_Shl _) [e1,e2]) = do
                        JXX EQQ b,
                        MOV II32 (OpReg rlo) (OpReg rhi),
                        XOR II32 (OpReg rlo) (OpReg rlo),
+                       JXX ALWAYS b,
                        NEWBLOCK b
                      ]
    return (RegCode64 code rhi rlo)
@@ -680,6 +681,7 @@ iselExpr64 (CmmMachOp (MO_S_Shr _) [e1,e2]) = do
                        JXX EQQ b,
                        MOV II32 (OpReg rhi) (OpReg rlo),
                        SAR II32 (OpImm (ImmInt 31)) (OpReg rhi),
+                       JXX ALWAYS b,
                        NEWBLOCK b
                      ]
    return (RegCode64 code rhi rlo)
@@ -701,6 +703,7 @@ iselExpr64 (CmmMachOp (MO_U_Shr _) [e1,e2]) = do
                        JXX EQQ b,
                        MOV II32 (OpReg rhi) (OpReg rlo),
                        XOR II32 (OpReg rhi) (OpReg rhi),
+                       JXX ALWAYS b,
                        NEWBLOCK b
                      ]
    return (RegCode64 code rhi rlo)



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

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