From: sof <unknown>
Date: Fri, 22 Apr 2005 16:49:38 +0000 (+0000)
Subject: [project @ 2005-04-22 16:49:38 by sof]
X-Git-Tag: Initial_conversion_from_CVS_complete~697
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=23e16cda6f7690b5d889dec2d521471c3a438e85;p=ghc-hetmet.git

[project @ 2005-04-22 16:49:38 by sof]
resetStaticObjectForRetainerProfiling(): warning wibble
---

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)",