diff options
Diffstat (limited to 'rts')
| -rw-r--r-- | 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 ed2bc4a8d8..8be393b4bc 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 |