diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2015-07-27 15:51:16 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2015-07-27 15:51:16 +0100 |
| commit | a1e8620fa2840f1f18297d784a2d2b174b27f566 (patch) | |
| tree | 3ec13231ba0da90ea0abb8fcc9196eba7a4c012b /rts/sm/GCAux.c | |
| parent | 09925c364c3fb7d3e8610f8c3ae26238d2941fc0 (diff) | |
| download | haskell-a1e8620fa2840f1f18297d784a2d2b174b27f566.tar.gz | |
Revert "Eliminate zero_static_objects_list()"
This reverts commit b949c96b4960168a3b399fe14485b24a2167b982.
Diffstat (limited to 'rts/sm/GCAux.c')
| -rw-r--r-- | rts/sm/GCAux.c | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/rts/sm/GCAux.c b/rts/sm/GCAux.c index d3cbdaefb4..13316e4d29 100644 --- a/rts/sm/GCAux.c +++ b/rts/sm/GCAux.c @@ -118,14 +118,14 @@ revertCAFs( void ) StgIndStatic *c; for (c = revertible_caf_list; - c != (StgIndStatic *)END_OF_CAF_LIST; + c != (StgIndStatic *)END_OF_STATIC_LIST; c = (StgIndStatic *)c->static_link) { SET_INFO((StgClosure *)c, c->saved_info); c->saved_info = NULL; // could, but not necessary: c->static_link = NULL; } - revertible_caf_list = (StgIndStatic*)END_OF_CAF_LIST; + revertible_caf_list = (StgIndStatic*)END_OF_STATIC_LIST; } void @@ -134,17 +134,15 @@ markCAFs (evac_fn evac, void *user) StgIndStatic *c; for (c = dyn_caf_list; - c != (StgIndStatic*)END_OF_CAF_LIST; + c != (StgIndStatic*)END_OF_STATIC_LIST; c = (StgIndStatic *)c->static_link) { - c = (StgIndStatic *)UNTAG_STATIC_LIST_PTR(c); evac(user, &c->indirectee); } for (c = revertible_caf_list; - c != (StgIndStatic*)END_OF_CAF_LIST; + c != (StgIndStatic*)END_OF_STATIC_LIST; c = (StgIndStatic *)c->static_link) { - c = (StgIndStatic *)UNTAG_STATIC_LIST_PTR(c); evac(user, &c->indirectee); } } |