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 /rts/Exception.cmm | |
| parent | 80d2e6f711d54f59c4d698c7565f69d49d34d8b8 (diff) | |
| download | haskell-fb8c1b8048e55c161641c7d9797878f553700d1b.tar.gz | |
add new primop: asyncExceptionsBlocked# :: IO Bool
Diffstat (limited to 'rts/Exception.cmm')
| -rw-r--r-- | rts/Exception.cmm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/rts/Exception.cmm b/rts/Exception.cmm index cba5d48d72..793c9ab149 100644 --- a/rts/Exception.cmm +++ b/rts/Exception.cmm @@ -200,6 +200,15 @@ unblockAsyncExceptionszh_fast jump stg_ap_v_fast; } +asyncExceptionsBlockedzh_fast +{ + /* args: none */ + if ((TO_W_(StgTSO_flags(CurrentTSO)) & TSO_BLOCKEX) != 0) { + RET_N(1); + } else { + RET_N(0); + } +} killThreadzh_fast { |