[Git][ghc/ghc][wip/supersven/StgRetBCO-struct] Use closure size instead of addresses

[Sven Tennie (@supersven)]

Sven Tennie pushed to branch wip/supersven/StgRetBCO-struct at Glasgow Haskell Compiler / GHC


Commits:
f8f1a6a0 by Sven Tennie at 2023-03-08T20:15:56+00:00
Use closure size instead of addresses

- - - - -


1 changed file:

- rts/sm/Scav.c


Changes:

=====================================
rts/sm/Scav.c
=====================================
@@ -1986,11 +1986,11 @@ scavenge_stack(StgPtr p, StgPtr stack_end)
         StgRetBCO* retBCO;
         StgWord size;
 
-        retBCO = (StgRetBCO*) p;
-        evacuate((StgClosure **)&retBCO->bco);
+        retBCO = (StgRetBCO *) p;
+        evacuate((StgClosure **) &retBCO->bco);
         size = BCO_BITMAP_SIZE(retBCO->bco);
         scavenge_large_bitmap((StgPtr) &retBCO->args, BCO_BITMAP(retBCO->bco), size);
-        p = retBCO->args + size;
+        p += sizeofW(StgRetBCO) + size;
         continue;
     }
 



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

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