[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:
dc22814f by Moritz Angermann at 2023-10-10T06:17:45+00:00
Update CgUtils.hs
- - - - -


1 changed file:

- compiler/GHC/StgToCmm/CgUtils.hs


Changes:

=====================================
compiler/GHC/StgToCmm/CgUtils.hs
=====================================
@@ -184,12 +184,12 @@ 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 
+            let greg' = CmmReg greg in
             case globalRegUseGlobalReg reg `elem` activeStgRegs platform of
                 True  -> expr
-                False -> CmmMachOp (MO_Add (cmmRegWidth platform greg')) [
+                False -> CmmMachOp (MO_Add (cmmRegWidth greg')) [
                                     fixExpr greg',
                                     CmmLit (CmmInt (fromIntegral offset)
-                                                   (cmmRegWidth platform greg'))]
+                                                   (cmmRegWidth greg'))]
 
         other_expr -> other_expr



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

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