diff options
| author | andy@galois.com <unknown> | 2007-06-26 04:19:58 +0000 |
|---|---|---|
| committer | andy@galois.com <unknown> | 2007-06-26 04:19:58 +0000 |
| commit | 5598dbc2d946f94ec4253450987d7a56336ef54a (patch) | |
| tree | f24307271217c632395e34e0349d33766041ff07 /rts/Exception.cmm | |
| parent | d7230e532eb485db85d4e446d7fba4192507b3ba (diff) | |
| download | haskell-5598dbc2d946f94ec4253450987d7a56336ef54a.tar.gz | |
Cleanup Hpc sub-system, remove hpc-tracer implementation.
Diffstat (limited to 'rts/Exception.cmm')
| -rw-r--r-- | rts/Exception.cmm | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/rts/Exception.cmm b/rts/Exception.cmm index 5f6bd0703d..346c9499eb 100644 --- a/rts/Exception.cmm +++ b/rts/Exception.cmm @@ -375,9 +375,6 @@ raisezh_fast } #endif - /* Inform the Hpc that an exception has been thrown */ - foreign "C" hs_hpc_raise_event(CurrentTSO "ptr") []; - retry_pop_stack: StgTSO_sp(CurrentTSO) = Sp; frame_type = foreign "C" raiseExceptionHelper(BaseReg "ptr", CurrentTSO "ptr", exception "ptr") []; |