diff options
| author | andy@galois.com <unknown> | 2007-01-09 19:40:11 +0000 |
|---|---|---|
| committer | andy@galois.com <unknown> | 2007-01-09 19:40:11 +0000 |
| commit | 53a5d0b0186379be1fb378b1ed591ff5f359178c (patch) | |
| tree | 63291dda3fb53af67a6553460689a586a409ff77 /rts/Exception.cmm | |
| parent | 272fb49ecfeffe7aaa66b9b61bab12d8a858458d (diff) | |
| download | haskell-53a5d0b0186379be1fb378b1ed591ff5f359178c.tar.gz | |
Adding command channel for the hpc debugger to the hpc part of the RTS
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 62d544c350..bf5893e21a 100644 --- a/rts/Exception.cmm +++ b/rts/Exception.cmm @@ -383,7 +383,7 @@ raisezh_fast #endif /* Inform the Hpc that an exception has been thrown */ - foreign "C" hs_hpc_event("Raise",CurrentTSO); + foreign "C" hs_hpc_raise_event(CurrentTSO "ptr"); retry_pop_stack: StgTSO_sp(CurrentTSO) = Sp; |