Commit 770dd811 authored by Simon Marlow's avatar Simon Marlow
Browse files

Check tag bits on the fun pointer of a PAP

parent fc3ed319
......@@ -235,6 +235,9 @@ checkPAP (StgClosure *fun, StgClosure** payload, StgWord n_args)
n_args );
break;
}
ASSERT(fun_info->f.arity > TAG_MASK ? GET_CLOSURE_TAG(fun) == 1
: GET_CLOSURE_TAG(fun) == fun_info->f.arity);
}
......
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