X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2Fsm%2FMarkWeak.c;fp=rts%2Fsm%2FMarkWeak.c;h=aadd5757af4dceb15048cad375ac82bd6cfd727b;hp=d4d708e72c2f4581871a963b46c57a538f4ff5c2;hb=539d3adec64f51a3fb13bb65b7a494d7eded01a0;hpb=83d563cb9ede0ba792836e529b1e2929db926355

diff --git a/rts/sm/MarkWeak.c b/rts/sm/MarkWeak.c
index d4d708e..aadd575 100644
--- a/rts/sm/MarkWeak.c
+++ b/rts/sm/MarkWeak.c
@@ -271,9 +271,10 @@ static rtsBool tidyThreadList (generation *gen)
         // if the thread is not masking exceptions but there are
         // pending exceptions on its queue, then something has gone
         // wrong.  However, pending exceptions are OK if there is an
-        // uninterruptible FFI call.
+        // FFI call.
         ASSERT(t->blocked_exceptions == END_BLOCKED_EXCEPTIONS_QUEUE
                || t->why_blocked == BlockedOnCCall
+               || t->why_blocked == BlockedOnCCall_Interruptible
                || (t->flags & TSO_BLOCKEX));
         
         if (tmp == NULL) {