X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FException.cmm;h=793c9ab14940f49cca3bd94ee87def6a282c1c7a;hb=2ad3ac2baca1c6fd0d69f3417fa62ae10cffcf49;hp=75f2c15d93c301b4627a2bb0c23f9d9ad7e63e00;hpb=579bc757533c8c9e5beabe5b21daddd922c1af75;p=ghc-hetmet.git

diff --git a/rts/Exception.cmm b/rts/Exception.cmm
index 75f2c15..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
 {
@@ -222,7 +231,7 @@ killThreadzh_fast
      */
   loop:
     if (StgTSO_what_next(target) == ThreadRelocated::I16) {
-        target = StgTSO_link(target);
+        target = StgTSO__link(target);
         goto loop;
     }
     if (target == CurrentTSO) {