diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-11-05 15:44:20 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-11-12 15:49:42 +0000 |
| commit | 2ef95e8fe0df15eb182a480b2d221a827f36ee96 (patch) | |
| tree | 8483fb4604c2ace2f68fff931ebf3a1c2db6e8eb /rts/Updates.cmm | |
| parent | 65e46f144f3d8b18de7264b0b099086153c68d6c (diff) | |
| download | haskell-2ef95e8fe0df15eb182a480b2d221a827f36ee96.tar.gz | |
remove some unused variables
Diffstat (limited to 'rts/Updates.cmm')
| -rw-r--r-- | rts/Updates.cmm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/rts/Updates.cmm b/rts/Updates.cmm index 01eb6829a3..53b2cbaa61 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); |