diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-21 19:38:53 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-21 19:38:53 +0100 |
| commit | ed6a7e4e37ce601004fa55edc68eb6f54997db5e (patch) | |
| tree | f3c536fece0bcd4b36e15305a2dc2b3afbd26e07 /rts/sm | |
| parent | c88fe3975a19a6ff33bda2db1da1c424625e2223 (diff) | |
| download | haskell-ed6a7e4e37ce601004fa55edc68eb6f54997db5e.tar.gz | |
Fix the profiling build
Diffstat (limited to 'rts/sm')
| -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 |