summaryrefslogtreecommitdiff
path: root/rts/Exception.cmm
diff options
context:
space:
mode:
Diffstat (limited to 'rts/Exception.cmm')
-rw-r--r--rts/Exception.cmm3
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") [];