diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-09-12 11:06:43 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-09-12 11:06:43 +0000 |
| commit | c016a94ccbda0ce35925b8dcded0d9a422f73a74 (patch) | |
| tree | c317222e50967b38d285bddaf1e762cb88317380 /rts/RetainerProfile.c | |
| parent | fdd7a41eec615cf3d77a95896a6183326e60c2ca (diff) | |
| download | haskell-c016a94ccbda0ce35925b8dcded0d9a422f73a74.tar.gz | |
Fix retainer profiling (#2576)
Diffstat (limited to 'rts/RetainerProfile.c')
| -rw-r--r-- | rts/RetainerProfile.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c index 4850b94d21..8d6126af2d 100644 --- a/rts/RetainerProfile.c +++ b/rts/RetainerProfile.c @@ -1843,7 +1843,7 @@ computeRetainerSet( void ) // for retainer profilng. for (weak = weak_ptr_list; weak != NULL; weak = weak->link) // retainRoot((StgClosure *)weak); - retainRoot((StgClosure **)&weak, NULL); + retainRoot(NULL, (StgClosure **)&weak); // Consider roots from the stable ptr table. markStablePtrTable(retainRoot, NULL); |