Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
......@@ -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);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment