diff options
| author | Ben Gamari <bgamari.foss@gmail.com> | 2015-07-24 11:41:59 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-07-24 17:44:22 +0200 |
| commit | 09d05050346c1be7bac20ba3f40861e05217368b (patch) | |
| tree | bd9c0215d768cad3e162286a8cdeb3289040e417 | |
| parent | 6e618d77d64255c32bef543a3f9635abce24a66d (diff) | |
| download | haskell-09d05050346c1be7bac20ba3f40861e05217368b.tar.gz | |
RetainerProfile: Add missing UNTAG_STATIC_LIST_PTR
| -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 |