diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-10-05 09:59:31 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-10-08 09:06:24 +0100 |
| commit | 6e95114e65ffadacc40e97a64467350c5c9d5af2 (patch) | |
| tree | 2fb40345ecff782e008d2268bfa2197c3eaef6ff /rts/Interpreter.c | |
| parent | 620d885bfd30263384497c06423b1cfe2ace0872 (diff) | |
| download | haskell-6e95114e65ffadacc40e97a64467350c5c9d5af2.tar.gz | |
fix a warning
Diffstat (limited to 'rts/Interpreter.c')
| -rw-r--r-- | rts/Interpreter.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Interpreter.c b/rts/Interpreter.c index 2eb2d0789f..809f0aba5a 100644 --- a/rts/Interpreter.c +++ b/rts/Interpreter.c @@ -1479,7 +1479,7 @@ run_BCO: // Re-load the pointer to the BCO from the stg_ret_p frame, // it might have moved during the call. Also reload the // pointers to the components of the BCO. - obj = (P_)Sp[1]; + obj = (StgClosure*)Sp[1]; bco = (StgBCO*)obj; instrs = (StgWord16*)(bco->instrs->payload); literals = (StgWord*)(&bco->literals->payload[0]); |