From 68ded3edcf684c139629d1aa2a6a3faa7f0440ba Mon Sep 17 00:00:00 2001 From: simonmar Date: Tue, 26 Apr 2005 15:44:48 +0000 Subject: [PATCH] [project @ 2005-04-26 15:44:48 by simonmar] resetStaticObjectForRetainerProfiling: catch up changes in ClosureMacros.h --- ghc/rts/RetainerProfile.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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)", -- 1.7.10.4