X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FException.cmm;h=103e0c4a5df93b54243d5f3330f361baf9a1ab67;hp=1104706c9c3b23a077808dcd3640c01a7ff022c7;hb=d50e93cf95b68bf858be82025b56c9977335ed76;hpb=71e810db51fb7f874f11f561303bd0bcb5e6d3d0

diff --git a/rts/Exception.cmm b/rts/Exception.cmm
index 1104706..103e0c4 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_throw();
 
 retry_pop_stack:
     StgTSO_sp(CurrentTSO) = Sp;