Commit 4f018b47 authored by Simon Marlow's avatar Simon Marlow
Browse files

isAlive: re-apply the tag if we find a forwarding pointer. This is a

real bug, spotted by Marcin Orczyk (thanks!).  I'm not sure if it lead
to any actual crashes.
parent d76fcd21
......@@ -79,7 +79,7 @@ isAlive(StgClosure *p)
if (IS_FORWARDING_PTR(info)) {
// alive!
return (StgClosure*)UN_FORWARDING_PTR(info);
return TAG_CLOSURE(tag,(StgClosure*)UN_FORWARDING_PTR(info));
info = INFO_PTR_TO_STRUCT(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