Cleanup Hpc sub-system, remove hpc-tracer implementation.

[ghc-hetmet.git] / rts / Exception.cmm

diff --git a/rts/Exception.cmm b/rts/Exception.cmm
index 5f6bd07..346c949 100644 (file)
--- 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") [];