diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2007-11-01 15:02:00 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2007-11-01 15:02:00 +0000 |
| commit | a78f4a5c3f20f0a86050280c83923c2c2ad36b21 (patch) | |
| tree | 670a51875250a8ca78e472aa8c2d4da9e58c4671 /rts/sm/Evac.c | |
| parent | 19c563c0bc084d8c37d832d87fa9d7cec20e036c (diff) | |
| download | haskell-a78f4a5c3f20f0a86050280c83923c2c2ad36b21.tar.gz | |
fix a warning
Diffstat (limited to 'rts/sm/Evac.c')
| -rw-r--r-- | rts/sm/Evac.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c index 2bbd5c9980..26646fe4a7 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); |