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/CheckUnload.c | |
| parent | 09925c364c3fb7d3e8610f8c3ae26238d2941fc0 (diff) | |
| download | haskell-a1e8620fa2840f1f18297d784a2d2b174b27f566.tar.gz | |
Revert "Eliminate zero_static_objects_list()"
This reverts commit b949c96b4960168a3b399fe14485b24a2167b982.
Diffstat (limited to 'rts/CheckUnload.c')
| -rw-r--r-- | rts/CheckUnload.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/rts/CheckUnload.c b/rts/CheckUnload.c index 34f976db4d..2c01113f63 100644 --- a/rts/CheckUnload.c +++ b/rts/CheckUnload.c @@ -271,8 +271,7 @@ void checkUnload (StgClosure *static_objects) addrs = allocHashTable(); - for (p = static_objects; p != END_OF_STATIC_OBJECT_LIST; p = link) { - p = UNTAG_STATIC_LIST_PTR(p); + for (p = static_objects; p != END_OF_STATIC_LIST; p = link) { checkAddress(addrs, p); info = get_itbl(p); link = *STATIC_LINK(info, p); @@ -280,9 +279,8 @@ void checkUnload (StgClosure *static_objects) // CAFs on revertible_caf_list are not on static_objects for (p = (StgClosure*)revertible_caf_list; - p != END_OF_CAF_LIST; + p != END_OF_STATIC_LIST; p = ((StgIndStatic *)p)->static_link) { - p = UNTAG_STATIC_LIST_PTR(p); checkAddress(addrs, p); } |