From 45c35148be308b3290f1c14240d406f1cb1af166 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 10 Aug 2006 13:23:07 +0000 Subject: [PATCH 1/1] Control.Exception.unblock wasn't unblocking exceptions --- rts/Exception.cmm | 3 +++ 1 file changed, 3 insertions(+) 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); -- 1.7.10.4