From c016a94ccbda0ce35925b8dcded0d9a422f73a74 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 12 Sep 2008 11:06:43 +0000 Subject: [PATCH] Fix retainer profiling (#2576) --- rts/RetainerProfile.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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); -- 1.7.10.4