[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:
bacd8c7f by Andreas Klebinger at 2023-07-07T19:01:43+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) 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) SLSL 32
+  = Just $ OpImmShift (ImmInteger n `shiftR` 32) SLSL 32
 
   -- 0x xxxx 0000 0000 0000
   | trailing_zeros >= 48
-  = Just $ OpImmShift (ImmInteger n) SLSL 48
+  = Just $ OpImmShift (ImmInteger n `shiftR` 48) SLSL 48
 
   | otherwise
   = Nothing



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

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