[Git][ghc/ghc][wip/angerman/32bit-cmm] Update CgUtils.hs

[Moritz Angermann (@angerman)]

Moritz Angermann pushed to branch wip/angerman/32bit-cmm at Glasgow Haskell Compiler / GHC


Commits:
9def8ce6 by Moritz Angermann at 2023-10-10T06:36:13+00:00
Update CgUtils.hs
- - - - -


1 changed file:

- compiler/GHC/StgToCmm/CgUtils.hs


Changes:

=====================================
compiler/GHC/StgToCmm/CgUtils.hs
=====================================
@@ -184,12 +184,11 @@ fixStgRegStmt platform stmt = fixAssign $ mapExpDeep fixExpr stmt
             -- NB: to ensure type correctness we need to ensure the Add
             --     as well as the Int need to be of the same size as the
             --     register.
-            let greg' = CmmReg greg in
             case globalRegUseGlobalReg reg `elem` activeStgRegs platform of
                 True  -> expr
-                False -> CmmMachOp (MO_Add (cmmRegWidth greg')) [
-                                    fixExpr greg',
+                False -> CmmMachOp (MO_Add (cmmRegWidth greg)) [
+                                    fixExpr (CmmReg greg),
                                     CmmLit (CmmInt (fromIntegral offset)
-                                                   (cmmRegWidth greg'))]
+                                                   (cmmRegWidth greg))]
 
         other_expr -> other_expr



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/9def8ce6d81c3897f1b8ab3f0acc2a246c0f2745
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/20231010/73089bcf/attachment-0001.html>