X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=rts%2FException.cmm;h=ae123f9421d9aa7f47d8dfea30e09fc304c3be55;hb=80578b7defea703ad24efa908534a13e2ebc880b;hp=641459b330fa1c9164762f049c3cc196454ea33c;hpb=7d8b8c2b314a98171678d037fbf5f9aadff13390;p=ghc-hetmet.git

diff --git a/rts/Exception.cmm b/rts/Exception.cmm
index 641459b..ae123f9 100644
--- a/rts/Exception.cmm
+++ b/rts/Exception.cmm
@@ -338,7 +338,7 @@ raisezh_fast
 #endif
     
     /* Inform the Hpc that an exception has been thrown */
-    foreign "C" hs_hpc_throw(CurrentTSO);
+    foreign "C" hs_hpc_event("Raise",CurrentTSO);
 
 retry_pop_stack:
     StgTSO_sp(CurrentTSO) = Sp;