diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2019-09-07 01:48:46 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2019-09-07 04:13:18 -0400 |
| commit | 95844745eda80f8fe35794c81e4ac87b9d528999 (patch) | |
| tree | 3b027829a84db11a2d842447dbec0de50979fb04 /compiler | |
| parent | b55ee979d32df938eee9c4c02c189f8be267e8a1 (diff) | |
| download | haskell-wip/pause-threads.tar.gz | |
Support for pausing other threadswip/pause-threads
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/prelude/primops.txt.pp | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/compiler/prelude/primops.txt.pp b/compiler/prelude/primops.txt.pp index 47a78e2c8d..887411c2a3 100644 --- a/compiler/prelude/primops.txt.pp +++ b/compiler/prelude/primops.txt.pp @@ -2892,6 +2892,12 @@ primop IsCurrentThreadBoundOp "isCurrentThreadBound#" GenPrimOp out_of_line = True has_side_effects = True +primop PauseThread "pauseThread#" GenPrimOp + ThreadId# -> State# RealWorld -> (# State# RealWorld, MVar# RealWorld () #) + with + out_of_line = True + has_side_effects = True + primop NoDuplicateOp "noDuplicate#" GenPrimOp State# s -> State# s with |