diff options
Diffstat (limited to 'rts/sm/Sanity.c')
-rw-r--r-- | rts/sm/Sanity.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/rts/sm/Sanity.c b/rts/sm/Sanity.c index c4a699e59a..e7a8401145 100644 --- a/rts/sm/Sanity.c +++ b/rts/sm/Sanity.c @@ -637,7 +637,8 @@ checkStaticObjects ( StgClosure* static_objects ) StgClosure *p = static_objects; StgInfoTable *info; - while (p != END_OF_STATIC_LIST) { + while (p != END_OF_STATIC_OBJECT_LIST) { + p = UNTAG_STATIC_LIST_PTR(p); checkClosure(p); info = get_itbl(p); switch (info->type) { |