diff options
author | GHC GitLab CI <ghc-ci@gitlab-haskell.org> | 2022-01-28 18:21:00 -0500 |
---|---|---|
committer | GHC GitLab CI <ghc-ci@gitlab-haskell.org> | 2022-01-28 18:21:00 -0500 |
commit | a468c5b80995f0583dde86837319d37b73c07dd6 (patch) | |
tree | 127390fdf2232dfc19de2bbfa499c68507bc0372 | |
parent | 5cf690836e0a7241825c053254a5cae037f8f0db (diff) | |
download | haskell-a468c5b80995f0583dde86837319d37b73c07dd6.tar.gz |
rts: Don't mark object code in markCAFs unless necessary
-rw-r--r-- | rts/sm/GCAux.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/sm/GCAux.c b/rts/sm/GCAux.c index 41c24634c2..8ded965a39 100644 --- a/rts/sm/GCAux.c +++ b/rts/sm/GCAux.c @@ -157,7 +157,7 @@ markCAFs (evac_fn evac, void *user) { c = (StgIndStatic *)UNTAG_STATIC_LIST_PTR(c); evac(user, &c->indirectee); - markObjectCode(c); + if (unload_mark_needed) markObjectCode(c); } for (StgIndStatic *c = revertible_caf_list; @@ -166,6 +166,6 @@ markCAFs (evac_fn evac, void *user) { c = (StgIndStatic *)UNTAG_STATIC_LIST_PTR(c); evac(user, &c->indirectee); - markObjectCode(c); + if (unload_mark_needed) markObjectCode(c); } } |