[Git][ghc/ghc][wip/angerman/32bit-cmm] Apply 1 suggestion(s) to 1 file(s)

[Moritz Angermann (@angerman)]

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


Commits:
3f437af1 by Sylvain Henry at 2023-10-09T10:05:50+00:00
Apply 1 suggestion(s) to 1 file(s)
- - - - -


1 changed file:

- compiler/GHC/StgToCmm/CgUtils.hs


Changes:

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



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

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