diff options
| author | simonmar@microsoft.com <unknown> | 2007-11-21 16:47:47 +0000 |
|---|---|---|
| committer | simonmar@microsoft.com <unknown> | 2007-11-21 16:47:47 +0000 |
| commit | f7de2e9478d6f43090c8a0b38a4bdb282b001c8f (patch) | |
| tree | fcc95f6d3abb2c2526310f100b87ad53dcb360d6 /rts | |
| parent | e13661a0c6359d7507f3683df123f8dfd776b719 (diff) | |
| download | haskell-f7de2e9478d6f43090c8a0b38a4bdb282b001c8f.tar.gz | |
warning fix
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 26646fe4a7..fc344f90fd 100644 --- a/rts/sm/Evac.c +++ b/rts/sm/Evac.c @@ -295,7 +295,7 @@ selector_loop: #ifdef PROFILING // For the purposes of LDV profiling, we have destroyed // the original selector thunk, p. - SET_INFO(p, info_ptr); + SET_INFO(p, (StgInfoTable *)info_ptr); LDV_RECORD_DEAD_FILL_SLOP_DYNAMIC((StgClosure *)p); SET_INFO(p, &stg_BLACKHOLE_info); #endif |