Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/2ef95e8fe0df15eb182a480b2d221a827f36ee96 >--------------------------------------------------------------- commit 2ef95e8fe0df15eb182a480b2d221a827f36ee96 Author: Simon Marlow <marlo...@gmail.com> Date: Mon Nov 5 15:44:20 2012 +0000 remove some unused variables >--------------------------------------------------------------- rts/Updates.cmm | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) diff --git a/rts/Updates.cmm b/rts/Updates.cmm index 01eb682..53b2cba 100644 --- a/rts/Updates.cmm +++ b/rts/Updates.cmm @@ -45,7 +45,9 @@ INFO_TABLE_RET ( stg_marked_upd_frame, UPDATE_FRAME, UPDATE_FRAME_FIELDS(W_,P_,info_ptr,_ccs,_unused,updatee) ) return (P_ ret) /* the closure being returned */ { - W_ v, i, tso, link; + W_ v; + + if (HpAlloc != 0) { ccall barf("HpAlloc"); } // we know the closure is a BLACKHOLE v = StgInd_indirectee(updatee); _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc