Commit b0a76643 authored by Ömer Sinan Ağacan's avatar Ömer Sinan Ağacan
Browse files

prettyPrintClosure(): Untag the closure before accessing fields

(This fixes segfaults)
parent e9dfb6e5
......@@ -805,6 +805,8 @@ void prettyPrintClosure_ (const StgClosure *obj)
{
const StgInfoTable *info;
obj = UNTAG_CONST_CLOSURE(obj);
/* collapse any indirections */
unsigned int type;
type = get_itbl(obj)->type;
......
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