From 23e16cda6f7690b5d889dec2d521471c3a438e85 Mon Sep 17 00:00:00 2001 From: sof Date: Fri, 22 Apr 2005 16:49:38 +0000 Subject: [PATCH] [project @ 2005-04-22 16:49:38 by sof] resetStaticObjectForRetainerProfiling(): warning wibble --- 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 3d51dcf..cbaf157 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 = IND_STATIC_LINK(p); + p = (StgClosure*)IND_STATIC_LINK(p); break; case THUNK_STATIC: maybeInitRetainerSet(p); - p = THUNK_STATIC_LINK(p); + p = (StgClosure*)THUNK_STATIC_LINK(p); break; case FUN_STATIC: maybeInitRetainerSet(p); - p = FUN_STATIC_LINK(p); + p = (StgClosure*)FUN_STATIC_LINK(p); break; case CONSTR_STATIC: maybeInitRetainerSet(p); - p = STATIC_LINK(get_itbl(p), p); + p = (StgClosure*)STATIC_LINK(get_itbl(p), p); break; default: barf("resetStaticObjectForRetainerProfiling: %p (%s)", -- 1.7.10.4