diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-10-19 11:27:53 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-10-19 11:49:37 +0100 |
| commit | 53810006bbcd3fc9b58893858f95c3432cb33f0e (patch) | |
| tree | ff4308239be53eb2ed75afb46bee03fc3a6f7ae9 /rts/Updates.cmm | |
| parent | 660dc69a777b462fc635e9914fa59bd784bb233c (diff) | |
| download | haskell-53810006bbcd3fc9b58893858f95c3432cb33f0e.tar.gz | |
profiling fixes
Diffstat (limited to 'rts/Updates.cmm')
| -rw-r--r-- | rts/Updates.cmm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/rts/Updates.cmm b/rts/Updates.cmm index bd6060f142..01eb6829a3 100644 --- a/rts/Updates.cmm +++ b/rts/Updates.cmm @@ -26,7 +26,7 @@ * we don't mind duplicating this jump. */ INFO_TABLE_RET ( stg_upd_frame, UPDATE_FRAME, - UPDATE_FRAME_FIELDS(W_,P_,info_ptr,_ccs,updatee) ) + UPDATE_FRAME_FIELDS(W_,P_,info_ptr,_ccs,_unused,updatee) ) return (P_ ret) /* the closure being returned */ { /* ToDo: it might be a PAP, so we should check... */ @@ -42,7 +42,7 @@ INFO_TABLE_RET ( stg_upd_frame, UPDATE_FRAME, * another thread in the meantime. */ INFO_TABLE_RET ( stg_marked_upd_frame, UPDATE_FRAME, - UPDATE_FRAME_FIELDS(W_,P_,info_ptr,_ccs,updatee) ) + UPDATE_FRAME_FIELDS(W_,P_,info_ptr,_ccs,_unused,updatee) ) return (P_ ret) /* the closure being returned */ { W_ v, i, tso, link; @@ -77,11 +77,11 @@ INFO_TABLE_RET ( stg_marked_upd_frame, UPDATE_FRAME, * high watermark. */ INFO_TABLE_RET ( stg_bh_upd_frame, UPDATE_FRAME, - UPDATE_FRAME_FIELDS(W_,P_,info_ptr,ccs,updatee) ) + UPDATE_FRAME_FIELDS(W_,P_,info_ptr,ccs,_unused,updatee) ) return (P_ ret) /* the closure being returned */ { // This all compiles away to a single jump instruction (sigh) jump RET_LBL(stg_marked_upd_frame) - ( UPDATE_FRAME_FIELDS(,,info_ptr,ccs,updatee) ) + ( UPDATE_FRAME_FIELDS(,,info_ptr,ccs,_unused,updatee) ) (ret); } |