Commit 42d87c15 authored by Ben.Lippmeier@anu.edu.au's avatar Ben.Lippmeier@anu.edu.au
Browse files

Untag closure pointers before trying to print them.

In RTS tracing code, need to untag the pointer before trying 
to load the info table in printClosure()
parent 4cc0cf0c
......@@ -121,8 +121,9 @@ printThunkObject( StgThunk *obj, char* tag )
void
printClosure( StgClosure *obj )
{
StgInfoTable *info;
obj = UNTAG_CLOSURE(obj);
StgInfoTable *info;
info = get_itbl(obj);
switch ( info->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