Commit 5b726bda authored by Simon Marlow's avatar Simon Marlow
Browse files

FIX #2164: check for ThreadRelocated in isAlive()

parent 78956377
...@@ -62,6 +62,11 @@ isAlive(StgClosure *p) ...@@ -62,6 +62,11 @@ isAlive(StgClosure *p)
// large objects use the evacuated flag // large objects use the evacuated flag
if (bd->flags & BF_LARGE) { if (bd->flags & BF_LARGE) {
if (get_itbl(q)->type == TSO &&
((StgTSO *)p)->what_next == ThreadRelocated) {
p = (StgClosure *)((StgTSO *)p)->_link;
continue;
}
return NULL; return NULL;
} }
......
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