From: simonmar <unknown>
Date: Tue, 26 Jul 2005 15:14:24 +0000 (+0000)
Subject: [project @ 2005-07-26 15:14:24 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~304
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f3c86836dc41e82a46db44c4817152020fa7ed7f;p=ghc-hetmet.git

[project @ 2005-07-26 15:14:24 by simonmar]
Fix retainer profiling on the HEAD
---

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