Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
45c35148
Commit
45c35148
authored
Aug 10, 2006
by
Simon Marlow
Browse files
Control.Exception.unblock wasn't unblocking exceptions
parent
69d5d326
Changes
1
Hide whitespace changes
Inline
Side-by-side
rts/Exception.cmm
View file @
45c35148
...
...
@@ -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
);
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment