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/Exception.cmm | |
| parent | 660dc69a777b462fc635e9914fa59bd784bb233c (diff) | |
| download | haskell-53810006bbcd3fc9b58893858f95c3432cb33f0e.tar.gz | |
profiling fixes
Diffstat (limited to 'rts/Exception.cmm')
| -rw-r--r-- | rts/Exception.cmm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/rts/Exception.cmm b/rts/Exception.cmm index 8a9f4e62c9..3f1dc100be 100644 --- a/rts/Exception.cmm +++ b/rts/Exception.cmm @@ -341,15 +341,15 @@ stg_killMyself * kind of return to the activation record underneath us on the stack. */ -#define CATCH_FRAME_FIELDS(w_,p_,info_ptr,exceptions_blocked,handler) \ +#define CATCH_FRAME_FIELDS(w_,p_,info_ptr,p1,p2,exceptions_blocked,handler) \ w_ info_ptr, \ - PROF_HDR_FIELDS(w_) \ + PROF_HDR_FIELDS(w_,p1,p2) \ w_ exceptions_blocked, \ p_ handler INFO_TABLE_RET(stg_catch_frame, CATCH_FRAME, - CATCH_FRAME_FIELDS(W_,P_,info_ptr, + CATCH_FRAME_FIELDS(W_,P_,info_ptr, p1, p2, exceptions_blocked,handler)) return (P_ ret) { @@ -388,7 +388,7 @@ stg_catchzh ( P_ io, /* :: IO a */ TICK_SLOW_CALL_v(); jump stg_ap_v_fast - (CATCH_FRAME_FIELDS(,,stg_catch_frame_info, + (CATCH_FRAME_FIELDS(,,stg_catch_frame_info, CCCS, 0, exceptions_blocked, handler)) (io); } |