projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Add the function TypeRep.pprTypeApp, and use it
[ghc-hetmet.git]
/
rts
/
Exception.cmm
diff --git
a/rts/Exception.cmm
b/rts/Exception.cmm
index
62d544c
..
bf5893e
100644
(file)
--- 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;