[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