Fix the profiling build

ghc · Sep 21, 2012 · ed6a7e4 · ed6a7e4
1 parent c88fe39
commit ed6a7e4
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c
@@ -945,9 +945,9 @@ eval_thunk_selector (StgClosure **q, StgSelector * p, rtsBool evac)
 #ifdef PROFILING
               // For the purposes of LDV profiling, we have destroyed
               // the original selector thunk, p.
-              SET_INFO(p, (StgInfoTable *)info_ptr);
+              SET_INFO((StgClosure*)p, (StgInfoTable *)info_ptr);
               OVERWRITING_CLOSURE((StgClosure*)p);
-              SET_INFO(p, &stg_WHITEHOLE_info);
+              SET_INFO((StgClosure*)p, &stg_WHITEHOLE_info);
 #endif
 
               // the closure in val is now the "value" of the