X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FException.cmm;h=346c9499eb4abd18925df64785aa3763b20fe538;hp=5f6bd0703df0b2e2e521e640be937b6b99531a88;hb=5598dbc2d946f94ec4253450987d7a56336ef54a;hpb=d7230e532eb485db85d4e446d7fba4192507b3ba

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