[Git][ghc/ghc][wip/T23576] Revert confFltCode changes

[Jaro Reinders (@Noughtmare)]

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


Commits:
01b02766 by Jaro Reinders at 2023-07-04T09:58:15+02:00
Revert confFltCode changes

- - - - -


1 changed file:

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


Changes:

=====================================
compiler/GHC/CmmToAsm/X86/CodeGen.hs
=====================================
@@ -1928,24 +1928,7 @@ condIntCode' platform cond x y = do
 condFltCode :: Cond -> CmmExpr -> CmmExpr -> NatM CondCode
 
 -- Larger-than-native (64-bit ops on 32-bit platforms)
-condFltCode cond x y = do
-  platform <- getPlatform
-  if target32Bit platform && isFloat64 (cmmExprType platform x)
-  then panic "condFLtCode 64-bit on 32-bit platform"
---     RegCode64 code1 r1hi r1lo <- iselExpr64 x
---     RegCode64 code2 r2hi r2lo <- iselExpr64 y
---     tmp <- getNewRegNat II32
---     let
---           code = code1 `appOL`
---                  code2 `appOL`
---                  toOL [ FLD FF32 (OpReg r2lo) (OpReg tmp),
---                         FLD FF32 (OpReg tmp) (OpReg r1lo),
---                         MOV II32 (OpReg r2hi) (OpReg tmp),
---                         SBB II32 (OpReg r1hi) (OpReg tmp)
---                       ]
---                     
---     return (CondCode False cond code)
-  else condFltCode_sse2
+condFltCode cond x y = condFltCode_sse2
   where
 
 



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

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