[Git][ghc/ghc][wip/andreask/arm_immediates] wip

[Andreas Klebinger (@AndreasK)]

Andreas Klebinger pushed to branch wip/andreask/arm_immediates at Glasgow Haskell Compiler / GHC


Commits:
5757ec93 by Andreas Klebinger at 2023-07-07T19:03:46+02:00
wip

- - - - -


1 changed file:

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


Changes:

=====================================
compiler/GHC/CmmToAsm/AArch64/CodeGen.hs
=====================================
@@ -386,15 +386,15 @@ getMovWideImm n
 
   -- 0x0000 0000 xxxx 0000
   | trailing_zeros >= 16 && sized_n < 2^(32 :: Int)
-  = Just $ OpImmShift (ImmInteger n `shiftR` 16) SLSL 16
+  = Just $ OpImmShift (ImmInteger $ n `shiftR` 16) SLSL 16
 
   -- 0x 0000 xxxx 0000 0000
   | trailing_zeros >= 32 && sized_n < 2^(48 :: Int)
-  = Just $ OpImmShift (ImmInteger n `shiftR` 32) SLSL 32
+  = Just $ OpImmShift (ImmInteger $ n `shiftR` 32) SLSL 32
 
   -- 0x xxxx 0000 0000 0000
   | trailing_zeros >= 48
-  = Just $ OpImmShift (ImmInteger n `shiftR` 48) SLSL 48
+  = Just $ OpImmShift (ImmInteger $ n `shiftR` 48) SLSL 48
 
   | otherwise
   = Nothing
@@ -418,7 +418,7 @@ getArithImm n
 
   -- 12 bits shifted by 12 places.
   | trailing_zeros >= 12 && sized_n < 2^(24::Int)
-  = Just $ OpImmShift (ImmInteger n `shiftR` 12) SLSL 12
+  = Just $ OpImmShift (ImmInteger $ n `shiftR` 12) SLSL 12
 
   | otherwise
   = Nothing



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/5757ec93d07a11827ac0938ae0a59f7140632f0e
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/20230707/79be7c52/attachment-0001.html>