X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FException.cmm;h=ae123f9421d9aa7f47d8dfea30e09fc304c3be55;hb=80578b7defea703ad24efa908534a13e2ebc880b;hp=1104706c9c3b23a077808dcd3640c01a7ff022c7;hpb=9cef40bd4dd2536c7a370a1a9b78461c152805cc;p=ghc-hetmet.git

diff --git a/rts/Exception.cmm b/rts/Exception.cmm
index 1104706..ae123f9 100644
--- a/rts/Exception.cmm
+++ b/rts/Exception.cmm
@@ -336,6 +336,9 @@ raisezh_fast
       foreign "C" fprintCCS_stderr(W_[CCCS] "ptr");
     }
 #endif
+    
+    /* Inform the Hpc that an exception has been thrown */
+    foreign "C" hs_hpc_event("Raise",CurrentTSO);
 
 retry_pop_stack:
     StgTSO_sp(CurrentTSO) = Sp;