From f3c86836dc41e82a46db44c4817152020fa7ed7f Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 26 Jul 2005 15:14:24 +0000
Subject: [PATCH] [project @ 2005-07-26 15:14:24 by simonmar] Fix retainer
 profiling on the HEAD

---
 ghc/rts/RetainerProfile.c |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/rts/RetainerProfile.c b/ghc/rts/RetainerProfile.c
index 62b6fa3..074c256 100644
--- a/ghc/rts/RetainerProfile.c
+++ b/ghc/rts/RetainerProfile.c
@@ -1780,8 +1780,8 @@ computeRetainerSet( void )
 	for (bd = generations[g].mut_list; bd != NULL; bd = bd->link) {
 	    for (ml = bd->start; ml < bd->free; ml++) {
 
-		maybeInitRetainerSet((StgClosure *)ml);
-		rtl = retainerSetOf((StgClosure *)ml);
+		maybeInitRetainerSet((StgClosure *)*ml);
+		rtl = retainerSetOf((StgClosure *)*ml);
 
 #ifdef DEBUG_RETAINER
 		if (rtl == NULL) {
-- 
1.7.10.4