From: Simon Marlow <simonmar@microsoft.com>
Date: Thu, 10 Aug 2006 13:23:07 +0000 (+0000)
Subject: Control.Exception.unblock wasn't unblocking exceptions
X-Git-Tag: Before_FC_branch_merge~237
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=45c35148be308b3290f1c14240d406f1cb1af166;p=ghc-hetmet.git

Control.Exception.unblock wasn't unblocking exceptions
---

diff --git a/rts/Exception.cmm b/rts/Exception.cmm
index 8ca397b..0c1b664 100644
--- a/rts/Exception.cmm
+++ b/rts/Exception.cmm
@@ -123,6 +123,9 @@ unblockAsyncExceptionszh_fast
 	foreign "C" awakenBlockedExceptionQueue(MyCapability() "ptr", 
 						CurrentTSO "ptr") [R1];
 
+	StgTSO_flags(CurrentTSO) = StgTSO_flags(CurrentTSO) & 
+	   ~(TSO_BLOCKEX::I32|TSO_INTERRUPTIBLE::I32);
+
 	/* avoid growing the stack unnecessarily */
 	if (Sp(0) == stg_unblockAsyncExceptionszh_ret_info) {
 	    Sp_adj(1);