[Git][ghc/ghc][wip/T23576] Add MO_UU_Conv W64 W16

[Jaro Reinders (@Noughtmare)]

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


Commits:
6b512985 by Jaro Reinders at 2023-07-03T17:18:09+02:00
Add MO_UU_Conv W64 W16

- - - - -


1 changed file:

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


Changes:

=====================================
compiler/GHC/CmmToAsm/X86/CodeGen.hs
=====================================
@@ -842,7 +842,14 @@ getRegister' _ is32Bit (CmmMachOp (MO_SS_Conv W64 W32) [x])
 getRegister' _ is32Bit (CmmMachOp (MO_UU_Conv W64 W8) [x])
  | is32Bit = do
   RegCode64 code _rhi rlo <- iselExpr64 x
-  return $ Fixed II8 rlo code
+  ro <- getNewRegNat II8
+  return $ Fixed II8 ro (code `appOL` toOL [ MOV II8 (OpReg rlo) (OpReg ro) ])
+
+getRegister' _ is32Bit (CmmMachOp (MO_UU_Conv W64 W16) [x])
+ | is32Bit = do
+  RegCode64 code _rhi rlo <- iselExpr64 x
+  ro <- getNewRegNat II16
+  return $ Fixed II16 ro (code `appOL` toOL [ MOV II16 (OpReg rlo) (OpReg ro) ])
 
 getRegister' _ _ (CmmLit lit@(CmmFloat f w)) =
   float_const_sse2  where



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

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