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/StgStdThunks.cmm | |
| parent | 660dc69a777b462fc635e9914fa59bd784bb233c (diff) | |
| download | haskell-53810006bbcd3fc9b58893858f95c3432cb33f0e.tar.gz | |
profiling fixes
Diffstat (limited to 'rts/StgStdThunks.cmm')
| -rw-r--r-- | rts/StgStdThunks.cmm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/rts/StgStdThunks.cmm b/rts/StgStdThunks.cmm index bd2b3df178..53e4cb1d23 100644 --- a/rts/StgStdThunks.cmm +++ b/rts/StgStdThunks.cmm @@ -67,11 +67,11 @@ UPD_BH_UPDATABLE(node); \ LDV_ENTER(node); \ selectee = StgThunk_payload(node,0); \ - push (UPDATE_FRAME_FIELDS(,,stg_upd_frame_info,CCCS,node)) { \ + push (UPDATE_FRAME_FIELDS(,,stg_upd_frame_info,CCCS,0,node)) { \ ENTER_CCS_THUNK(node); \ if (NEED_EVAL(selectee)) { \ SAVE_CCS; \ - (P_ constr) = call %GET_ENTRY(selectee) (selectee); \ + (P_ constr) = call %GET_ENTRY(UNTAG_IF_PROF(selectee)) (selectee); \ RESTORE_CCS; \ selectee = constr; \ } \ @@ -165,7 +165,7 @@ INFO_TABLE(stg_ap_1_upd,1,0,THUNK_1_0,"stg_ap_1_upd_info","stg_ap_1_upd_info") STK_CHK_NP(node); UPD_BH_UPDATABLE(node); LDV_ENTER(node); - push (UPDATE_FRAME_FIELDS(,,stg_upd_frame_info, CCCS, node)) { + push (UPDATE_FRAME_FIELDS(,,stg_upd_frame_info, CCCS, 0, node)) { ENTER_CCS_THUNK(node); jump stg_ap_0_fast (StgThunk_payload(node,0)); @@ -179,7 +179,7 @@ INFO_TABLE(stg_ap_2_upd,2,0,THUNK_2_0,"stg_ap_2_upd_info","stg_ap_2_upd_info") STK_CHK_NP(node); UPD_BH_UPDATABLE(node); LDV_ENTER(node); - push (UPDATE_FRAME_FIELDS(,,stg_upd_frame_info, CCCS, node)) { + push (UPDATE_FRAME_FIELDS(,,stg_upd_frame_info, CCCS, 0, node)) { ENTER_CCS_THUNK(node); jump stg_ap_p_fast (StgThunk_payload(node,0), @@ -194,7 +194,7 @@ INFO_TABLE(stg_ap_3_upd,3,0,THUNK,"stg_ap_3_upd_info","stg_ap_3_upd_info") STK_CHK_NP(node); UPD_BH_UPDATABLE(node); LDV_ENTER(node); - push (UPDATE_FRAME_FIELDS(,,stg_upd_frame_info, CCCS, node)) { + push (UPDATE_FRAME_FIELDS(,,stg_upd_frame_info, CCCS, 0, node)) { ENTER_CCS_THUNK(node); jump stg_ap_pp_fast (StgThunk_payload(node,0), @@ -210,7 +210,7 @@ INFO_TABLE(stg_ap_4_upd,4,0,THUNK,"stg_ap_4_upd_info","stg_ap_4_upd_info") STK_CHK_NP(node); UPD_BH_UPDATABLE(node); LDV_ENTER(node); - push (UPDATE_FRAME_FIELDS(,,stg_upd_frame_info, CCCS, node)) { + push (UPDATE_FRAME_FIELDS(,,stg_upd_frame_info, CCCS, 0, node)) { ENTER_CCS_THUNK(node); jump stg_ap_ppp_fast (StgThunk_payload(node,0), @@ -227,7 +227,7 @@ INFO_TABLE(stg_ap_5_upd,5,0,THUNK,"stg_ap_5_upd_info","stg_ap_5_upd_info") STK_CHK_NP(node); UPD_BH_UPDATABLE(node); LDV_ENTER(node); - push (UPDATE_FRAME_FIELDS(,,stg_upd_frame_info, CCCS, node)) { + push (UPDATE_FRAME_FIELDS(,,stg_upd_frame_info, CCCS, 0, node)) { ENTER_CCS_THUNK(node); jump stg_ap_pppp_fast (StgThunk_payload(node,0), @@ -245,7 +245,7 @@ INFO_TABLE(stg_ap_6_upd,6,0,THUNK,"stg_ap_6_upd_info","stg_ap_6_upd_info") STK_CHK_NP(node); UPD_BH_UPDATABLE(node); LDV_ENTER(node); - push (UPDATE_FRAME_FIELDS(,,stg_upd_frame_info, CCCS, node)) { + push (UPDATE_FRAME_FIELDS(,,stg_upd_frame_info, CCCS, 0, node)) { ENTER_CCS_THUNK(node); jump stg_ap_ppppp_fast (StgThunk_payload(node,0), @@ -264,7 +264,7 @@ INFO_TABLE(stg_ap_7_upd,7,0,THUNK,"stg_ap_7_upd_info","stg_ap_7_upd_info") STK_CHK_NP(node); UPD_BH_UPDATABLE(node); LDV_ENTER(node); - push (UPDATE_FRAME_FIELDS(,,stg_upd_frame_info, CCCS, node)) { + push (UPDATE_FRAME_FIELDS(,,stg_upd_frame_info, CCCS, 0, node)) { ENTER_CCS_THUNK(node); jump stg_ap_pppppp_fast (StgThunk_payload(node,0), |