X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FRetainerProfile.c;fp=rts%2FRetainerProfile.c;h=8d6126af2dc38d52161d24423cbeec1f10e77a32;hp=4850b94d21794c1f0db7aac07ebf4352efa9d481;hb=c016a94ccbda0ce35925b8dcded0d9a422f73a74;hpb=fdd7a41eec615cf3d77a95896a6183326e60c2ca

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);