Fix retainer profiling

ghc · Aug 26, 2007 · db14f9d · db14f9d
1 parent ed5cbfc
commit db14f9d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c
@@ -1439,7 +1439,7 @@ retainStack( StgClosure *c, retainer c_child_r,
 	    StgFunInfoTable *fun_info;
 
 	    retainClosure(ret_fun->fun, c, c_child_r);
-	    fun_info = get_fun_itbl(ret_fun->fun);
+	    fun_info = get_fun_itbl(UNTAG_CLOSURE(ret_fun->fun));
 
 	    p = (P_)&ret_fun->payload;
 	    switch (fun_info->f.fun_type) {