Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/ed6a7e4e37ce601004fa55edc68eb6f54997db5e >--------------------------------------------------------------- commit ed6a7e4e37ce601004fa55edc68eb6f54997db5e Author: Ian Lynagh <[email protected]> Date: Fri Sep 21 19:38:53 2012 +0100 Fix the profiling build >--------------------------------------------------------------- rts/sm/Evac.c | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c index ed2bc4a..8be393b 100644 --- a/rts/sm/Evac.c +++ b/rts/sm/Evac.c @@ -945,9 +945,9 @@ selector_loop: #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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
