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