diff options
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") []; |