diff options
author | Simon Marlow <marlowsd@gmail.com> | 2010-12-16 10:57:23 +0000 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2010-12-16 10:57:23 +0000 |
commit | 0c69ee73d423dba8bf86336654a12a208b050bda (patch) | |
tree | 112879ba870760b2ca6c2e8007dbfd54197cabb7 /rts | |
parent | c82340688d6219a97b1ef0662223ba70ed864d17 (diff) | |
download | haskell-0c69ee73d423dba8bf86336654a12a208b050bda.tar.gz |
fix a warning
Diffstat (limited to 'rts')
-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 65da0762f2..17e756f2c4 100644 --- a/rts/sm/Evac.c +++ b/rts/sm/Evac.c @@ -943,7 +943,7 @@ selector_loop: // For the purposes of LDV profiling, we have destroyed // the original selector thunk, p. SET_INFO(p, (StgInfoTable *)info_ptr); - OVERWRITING_CLOSURE(p); + OVERWRITING_CLOSURE((StgClosure*)p); SET_INFO(p, &stg_WHITEHOLE_info); #endif |