Commit 3cd51827 authored by Simon Marlow's avatar Simon Marlow
Browse files

FIX #1980: must check for ThreadRelocated in killThread#

parent a9f9a754
......@@ -214,6 +214,11 @@ killThreadzh_fast
* If the exception went to a catch frame, we'll just continue from
* the handler.
*/
loop:
if (StgTSO_what_next(target) == ThreadRelocated::I16) {
target = StgTSO_link(target);
goto loop;
}
if (target == CurrentTSO) {
SAVE_THREAD_STATE();
/* ToDo: what if the current thread is blocking exceptions? */
......
Markdown is supported
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