From: Simon Marlow Date: Fri, 12 Sep 2008 11:06:43 +0000 (+0000) Subject: Fix retainer profiling (#2576) X-Git-Tag: 2008-09-12~1 X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=c016a94ccbda0ce35925b8dcded0d9a422f73a74 Fix retainer profiling (#2576) --- diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c index 4850b94..8d6126a 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);