diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-07-09 13:53:37 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-07-09 13:53:37 +0000 |
| commit | fb8c1b8048e55c161641c7d9797878f553700d1b (patch) | |
| tree | abb3a84e84b10f47656accfd22ce01f34b79bf2d /compiler/prelude/primops.txt.pp | |
| parent | 80d2e6f711d54f59c4d698c7565f69d49d34d8b8 (diff) | |
| download | haskell-fb8c1b8048e55c161641c7d9797878f553700d1b.tar.gz | |
add new primop: asyncExceptionsBlocked# :: IO Bool
Diffstat (limited to 'compiler/prelude/primops.txt.pp')
| -rw-r--r-- | compiler/prelude/primops.txt.pp | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/compiler/prelude/primops.txt.pp b/compiler/prelude/primops.txt.pp index f84e00f566..302640d581 100644 --- a/compiler/prelude/primops.txt.pp +++ b/compiler/prelude/primops.txt.pp @@ -1279,6 +1279,11 @@ primop UnblockAsyncExceptionsOp "unblockAsyncExceptions#" GenPrimOp with out_of_line = True +primop AsyncExceptionsBlockedOp "asyncExceptionsBlocked#" GenPrimOp + State# RealWorld -> (# State# RealWorld, Int# #) + with + out_of_line = True + ------------------------------------------------------------------------ section "STM-accessible Mutable Variables" ------------------------------------------------------------------------ |