From a78f4a5c3f20f0a86050280c83923c2c2ad36b21 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 1 Nov 2007 15:02:00 +0000 Subject: [PATCH] fix a warning --- rts/sm/Evac.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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); -- 1.7.10.4