Commit 45c35148 authored by Simon Marlow's avatar Simon Marlow
Browse files

Control.Exception.unblock wasn't unblocking exceptions

parent 69d5d326
......@@ -123,6 +123,9 @@ unblockAsyncExceptionszh_fast
foreign "C" awakenBlockedExceptionQueue(MyCapability() "ptr",
CurrentTSO "ptr") [R1];
StgTSO_flags(CurrentTSO) = StgTSO_flags(CurrentTSO) &
/* avoid growing the stack unnecessarily */
if (Sp(0) == stg_unblockAsyncExceptionszh_ret_info) {
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment