diff options
| -rw-r--r-- | rts/RetainerProfile.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c index 8121defbf8..ba58c199f0 100644 --- a/rts/RetainerProfile.c +++ b/rts/RetainerProfile.c @@ -1882,6 +1882,7 @@ resetStaticObjectForRetainerProfiling( StgClosure *static_objects ) #endif p = static_objects; while (p != END_OF_STATIC_OBJECT_LIST) { + p = UNTAG_STATIC_LIST_PTR(p); #ifdef DEBUG_RETAINER count++; #endif |