X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FEvac.c;h=26646fe4a790c1f99fc71a378544abc2fbd30973;hb=a78f4a5c3f20f0a86050280c83923c2c2ad36b21;hp=2bbd5c998084525ae7581bf7d783bb46d5b93837;hpb=bf4d6a58a1079b944ffc4bdd41d57403a7727046;p=ghc-hetmet.git

diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c
index 2bbd5c9..26646fe 100644
--- a/rts/sm/Evac.c
+++ b/rts/sm/Evac.c
@@ -239,7 +239,7 @@ selector_chain:
     // In threaded mode, we'll use WHITEHOLE to lock the selector
     // thunk while we evaluate it.
     {
-	info_ptr = (StgInfoTable *)xchg((StgPtr)&p->header.info, (W_)&stg_WHITEHOLE_info);
+	info_ptr = xchg((StgPtr)&p->header.info, (W_)&stg_WHITEHOLE_info);
 	if (info_ptr == (W_)&stg_WHITEHOLE_info) {
             do {
                 info_ptr = xchg((StgPtr)&p->header.info, (W_)&stg_WHITEHOLE_info);