[commit: ghc] master: rts: Use g0 for &generations[0] (ea01daf)

git at git.haskell.org git at git.haskell.org
Sat Apr 21 16:10:16 UTC 2018


Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/ea01dafe89c150f073814f0f3a54a36215112ac4/ghc

>---------------------------------------------------------------

commit ea01dafe89c150f073814f0f3a54a36215112ac4
Author: Ömer Sinan Ağacan <omeragacan at gmail.com>
Date:   Sat Apr 21 19:09:15 2018 +0300

    rts: Use g0 for &generations[0]
    
    [skip ci]


>---------------------------------------------------------------

ea01dafe89c150f073814f0f3a54a36215112ac4
 rts/sm/MarkWeak.c | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/rts/sm/MarkWeak.c b/rts/sm/MarkWeak.c
index 248bf63..0153539 100644
--- a/rts/sm/MarkWeak.c
+++ b/rts/sm/MarkWeak.c
@@ -378,14 +378,13 @@ static void checkWeakPtrSanity(StgWeak *hd, StgWeak *tl)
 void collectFreshWeakPtrs()
 {
     uint32_t i;
-    generation *gen = &generations[0];
     // move recently allocated weak_ptr_list to the old list as well
     for (i = 0; i < n_capabilities; i++) {
         Capability *cap = capabilities[i];
         if (cap->weak_ptr_list_tl != NULL) {
             IF_DEBUG(sanity, checkWeakPtrSanity(cap->weak_ptr_list_hd, cap->weak_ptr_list_tl));
-            cap->weak_ptr_list_tl->link = gen->weak_ptr_list;
-            gen->weak_ptr_list = cap->weak_ptr_list_hd;
+            cap->weak_ptr_list_tl->link = g0->weak_ptr_list;
+            g0->weak_ptr_list = cap->weak_ptr_list_hd;
             cap->weak_ptr_list_tl = NULL;
             cap->weak_ptr_list_hd = NULL;
         } else {



More information about the ghc-commits mailing list