X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FException.cmm;fp=rts%2FException.cmm;h=793c9ab14940f49cca3bd94ee87def6a282c1c7a;hp=cba5d48d7236fdef7a1b7def101ffdab429860bb;hb=fb8c1b8048e55c161641c7d9797878f553700d1b;hpb=80d2e6f711d54f59c4d698c7565f69d49d34d8b8

diff --git a/rts/Exception.cmm b/rts/Exception.cmm
index cba5d48..793c9ab 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
 {