diff options
| author | andy@galois.com <unknown> | 2006-12-13 00:19:17 +0000 |
|---|---|---|
| committer | andy@galois.com <unknown> | 2006-12-13 00:19:17 +0000 |
| commit | 55dd028c1dc41c603316dbe843fa13c1cac30720 (patch) | |
| tree | 509cbaf986cd3c9cc10f01458f4eefc72b72911c /rts/Exception.cmm | |
| parent | d50e93cf95b68bf858be82025b56c9977335ed76 (diff) | |
| download | haskell-55dd028c1dc41c603316dbe843fa13c1cac30720.tar.gz | |
Misc Hpc improvement to dynamic tracer output
- Added HPCRIX support for passing tracer filename.
- Added thread tracing support.
- Cleaned up use of HsFFI.h
Diffstat (limited to 'rts/Exception.cmm')
| -rw-r--r-- | rts/Exception.cmm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Exception.cmm b/rts/Exception.cmm index 103e0c4a5d..641459b330 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(); + foreign "C" hs_hpc_throw(CurrentTSO); retry_pop_stack: StgTSO_sp(CurrentTSO) = Sp; |