diff options
| author | andy@galois.com <unknown> | 2006-12-09 05:03:34 +0000 |
|---|---|---|
| committer | andy@galois.com <unknown> | 2006-12-09 05:03:34 +0000 |
| commit | d50e93cf95b68bf858be82025b56c9977335ed76 (patch) | |
| tree | 044b0c34cec15270e3796860f99ab4fb00bcd173 /rts/Exception.cmm | |
| parent | 71e810db51fb7f874f11f561303bd0bcb5e6d3d0 (diff) | |
| download | haskell-d50e93cf95b68bf858be82025b56c9977335ed76.tar.gz | |
Adding tracing support
Diffstat (limited to 'rts/Exception.cmm')
| -rw-r--r-- | rts/Exception.cmm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/rts/Exception.cmm b/rts/Exception.cmm index 1104706c9c..103e0c4a5d 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; |