diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-10-09 09:23:50 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-10-09 11:13:58 +0100 |
| commit | cc2a4d57692ccd40bd552cccbcec15b7d5c97746 (patch) | |
| tree | dc93a00b87657b1ba0367392f1497708145a7625 /rts/Updates.cmm | |
| parent | 70765e86772010d09f42ba844fe9f73b17a711c7 (diff) | |
| download | haskell-cc2a4d57692ccd40bd552cccbcec15b7d5c97746.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 2bc21ec332..bd6060f142 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,updatee) ) + UPDATE_FRAME_FIELDS(W_,P_,info_ptr,_ccs,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,updatee) ) + UPDATE_FRAME_FIELDS(W_,P_,info_ptr,_ccs,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,updatee) ) + UPDATE_FRAME_FIELDS(W_,P_,info_ptr,ccs,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,updatee) ) + ( UPDATE_FRAME_FIELDS(,,info_ptr,ccs,updatee) ) (ret); } |