Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/6e95114e65ffadacc40e97a64467350c5c9d5af2

>---------------------------------------------------------------

commit 6e95114e65ffadacc40e97a64467350c5c9d5af2
Author: Simon Marlow <marlo...@gmail.com>
Date:   Fri Oct 5 09:59:31 2012 +0100

    fix a warning

>---------------------------------------------------------------

 rts/Interpreter.c |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/rts/Interpreter.c b/rts/Interpreter.c
index 2eb2d07..809f0ab 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]);



_______________________________________________
Cvs-ghc mailing list
Cvs-ghc@haskell.org
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to