[Git][ghc/ghc][wip/T23576] Remove whitespace and add temporary quottish cases

[Jaro Reinders (@Noughtmare)]

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


Commits:
b23d95b8 by Jaro Reinders at 2023-07-05T14:47:51+02:00
Remove whitespace and add temporary quottish cases

- - - - -


3 changed files:

- compiler/GHC/CmmToAsm/X86/CodeGen.hs
- compiler/GHC/CmmToAsm/X86/Ppr.hs
- compiler/GHC/StgToCmm/Prim.hs


Changes:

=====================================
compiler/GHC/CmmToAsm/X86/CodeGen.hs
=====================================
@@ -637,7 +637,7 @@ iselExpr64 (CmmMachOp (MO_S_Neg _) [expr]) = do
    Reg64 rohi rolo <- getNewReg64
    let
         ocode = code `appOL`
-                toOL [ MOV II32 (OpReg rlo) (OpReg rolo), 
+                toOL [ MOV II32 (OpReg rlo) (OpReg rolo),
                        XOR II32 (OpReg rohi) (OpReg rohi),
                        NEGI II32 (OpReg rolo),
                        SBB II32 (OpReg rhi) (OpReg rohi) ]
@@ -1857,7 +1857,7 @@ condIntCode' platform cond x y
                       MOV II32 (OpReg r2hi) (OpReg tmp),
                       SBB II32 (OpReg r1hi) (OpReg tmp)
                     ]
-                  
+
   return (CondCode False cond code)
 
 -- memory vs immediate


=====================================
compiler/GHC/CmmToAsm/X86/Ppr.hs
=====================================
@@ -734,7 +734,7 @@ pprInstr platform i = case i of
 
    SHR format src dst
       -> pprShift (text "shr") format src dst
-   
+
    SHLD format src dst1 dst2
       -> pprShift2 (text "shld") format src dst1 dst2
 


=====================================
compiler/GHC/StgToCmm/Prim.hs
=====================================
@@ -1684,6 +1684,33 @@ emitPrimOp cfg primop =
   isQuottishOp MO_I64_Rem = True
   isQuottishOp MO_W64_Quot = True
   isQuottishOp MO_W64_Rem = True
+
+  isQuottishOp MO_I64_ToI = True
+  isQuottishOp MO_I64_FromI = True
+  isQuottishOp MO_W64_ToW = True
+  isQuottishOp MO_W64_FromW = True
+
+  isQuottishOp MO_x64_Eq = True
+  isQuottishOp MO_x64_Ne = True
+  isQuottishOp MO_I64_Ge = True
+  isQuottishOp MO_I64_Gt = True
+  isQuottishOp MO_I64_Le = True
+  isQuottishOp MO_I64_Lt = True
+  isQuottishOp MO_W64_Ge = True
+  isQuottishOp MO_W64_Gt = True
+  isQuottishOp MO_W64_Le = True
+  isQuottishOp MO_W64_Lt = True
+
+  isQuottishOp MO_UF_Conv{} = True
+
+  isQuottishOp MO_x64_And = True
+  isQuottishOp MO_x64_Or = True
+  isQuottishOp MO_x64_Xor = True
+  isQuottishOp MO_x64_Not = True
+  isQuottishOp MO_x64_Shl = True
+  isQuottishOp MO_I64_Shr = True
+  isQuottishOp MO_W64_Shr = True
+
   isQuottishOp _ = False
 
   opTranslate64



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

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