X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FMessages.c;h=6a7c64de580fcf7b613875667c4501446660fb57;hp=2b40f76e938c466f109c3e6a26f760d392053038;hb=848797ebb9b60cf9c8a004c97afd008f5325c75f;hpb=1373cd3085b8dec456e6118c58e940718cb9d559

diff --git a/rts/Messages.c b/rts/Messages.c
index 2b40f76..6a7c64d 100644
--- a/rts/Messages.c
+++ b/rts/Messages.c
@@ -114,11 +114,9 @@ loop:
 
         switch (r) {
         case THROWTO_SUCCESS:
-            ASSERT(t->source->sp[0] == (StgWord)&stg_block_throwto_info);
-            t->source->sp += 3;
-            unblockOne(cap, t->source);
             // this message is done
-            unlockClosure((StgClosure*)m, &stg_IND_info);
+            unlockClosure((StgClosure*)m, &stg_MSG_NULL_info);
+            tryWakeupThread(cap, t->source);
             break;
         case THROWTO_BLOCKED:
             // unlock the message
@@ -137,7 +135,7 @@ loop:
         }
         return;
     }
-    else if (i == &stg_IND_info)
+    else if (i == &stg_IND_info || i == &stg_MSG_NULL_info)
     {
         // message was revoked
         return;