remove some unused variables
authorSimon Marlow <marlowsd@gmail.com>
Mon, 5 Nov 2012 15:44:20 +0000 (15:44 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Mon, 12 Nov 2012 15:49:42 +0000 (15:49 +0000)
rts/Updates.cmm

index 01eb682..53b2cba 100644 (file)
@@ -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);