[commit: ghc] master: remove some unused variables (2ef95e8)

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/2ef95e8fe0df15eb182a480b2d221a827f36ee96

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

commit 2ef95e8fe0df15eb182a480b2d221a827f36ee96
Author: Simon Marlow <[email protected]>
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);