From: simonmar <unknown>
Date: Tue, 26 Apr 2005 15:44:48 +0000 (+0000)
Subject: [project @ 2005-04-26 15:44:48 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~667
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=68ded3edcf684c139629d1aa2a6a3faa7f0440ba;p=ghc-hetmet.git

[project @ 2005-04-26 15:44:48 by simonmar]
resetStaticObjectForRetainerProfiling: catch up changes in ClosureMacros.h
---

diff --git a/ghc/rts/RetainerProfile.c b/ghc/rts/RetainerProfile.c
index cbaf157..bf52fce 100644
--- a/ghc/rts/RetainerProfile.c
+++ b/ghc/rts/RetainerProfile.c
@@ -1851,19 +1851,19 @@ resetStaticObjectForRetainerProfiling( void )
 	    // Since we do not compute the retainer set of any
 	    // IND_STATIC object, we don't have to reset its retainer
 	    // field.
-	    p = (StgClosure*)IND_STATIC_LINK(p);
+	    p = (StgClosure*)*IND_STATIC_LINK(p);
 	    break;
 	case THUNK_STATIC:
 	    maybeInitRetainerSet(p);
-	    p = (StgClosure*)THUNK_STATIC_LINK(p);
+	    p = (StgClosure*)*THUNK_STATIC_LINK(p);
 	    break;
 	case FUN_STATIC:
 	    maybeInitRetainerSet(p);
-	    p = (StgClosure*)FUN_STATIC_LINK(p);
+	    p = (StgClosure*)*FUN_STATIC_LINK(p);
 	    break;
 	case CONSTR_STATIC:
 	    maybeInitRetainerSet(p);
-	    p = (StgClosure*)STATIC_LINK(get_itbl(p), p);
+	    p = (StgClosure*)*STATIC_LINK(get_itbl(p), p);
 	    break;
 	default:
 	    barf("resetStaticObjectForRetainerProfiling: %p (%s)",