[commit: ghc] master: Fix the profiling build (ed6a7e4)

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