Commit 23e16cda authored by sof's avatar sof

[project @ 2005-04-22 16:49:38 by sof]

resetStaticObjectForRetainerProfiling(): warning wibble
parent a584b4ff
......@@ -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)",
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment