projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add a new primitive forkOn#, for forking a thread on a specific Capability
[ghc-hetmet.git]
/
ghc
/
includes
/
StgMiscClosures.h
diff --git
a/ghc/includes/StgMiscClosures.h
b/ghc/includes/StgMiscClosures.h
index
844c846
..
4a6a7c4
100644
(file)
--- a/
ghc/includes/StgMiscClosures.h
+++ b/
ghc/includes/StgMiscClosures.h
@@
-424,6
+424,7
@@
RTS_FUN(stg_ap_pppv_fast);
RTS_FUN(stg_ap_pppp_fast);
RTS_FUN(stg_ap_ppppp_fast);
RTS_FUN(stg_ap_pppppp_fast);
RTS_FUN(stg_ap_pppp_fast);
RTS_FUN(stg_ap_ppppp_fast);
RTS_FUN(stg_ap_pppppp_fast);
+RTS_FUN(stg_PAP_apply);
/* standard GC & stack check entry points, all defined in HeapStackCheck.hc */
/* standard GC & stack check entry points, all defined in HeapStackCheck.hc */
@@
-578,6
+579,7
@@
RTS_FUN(makeStablePtrzh_fast);
RTS_FUN(deRefStablePtrzh_fast);
RTS_FUN(forkzh_fast);
RTS_FUN(deRefStablePtrzh_fast);
RTS_FUN(forkzh_fast);
+RTS_FUN(forkOnzh_fast);
RTS_FUN(yieldzh_fast);
RTS_FUN(killThreadzh_fast);
RTS_FUN(blockAsyncExceptionszh_fast);
RTS_FUN(yieldzh_fast);
RTS_FUN(killThreadzh_fast);
RTS_FUN(blockAsyncExceptionszh_fast);