X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FException.cmm;h=ae123f9421d9aa7f47d8dfea30e09fc304c3be55;hb=f4b8374442162769ea87c24bf90a0f86a2fdd9b7;hp=641459b330fa1c9164762f049c3cc196454ea33c;hpb=55dd028c1dc41c603316dbe843fa13c1cac30720;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;