Commit c19a401d authored by Ömer Sinan Ağacan's avatar Ömer Sinan Ağacan Committed by Marge Bot

rts/Printer: Print forwarding pointers

parent 23342e1f
Pipeline #3149 canceled with stages
in 5 minutes and 55 seconds
......@@ -111,10 +111,15 @@ printThunkObject( StgThunk *obj, char* tag )
void
printClosure( const StgClosure *obj )
{
const StgInfoTable *info;
debugBelch("%p: ", obj);
obj = UNTAG_CONST_CLOSURE(obj);
info = get_itbl(obj);
const StgInfoTable* info = get_itbl(obj);
while (IS_FORWARDING_PTR(info)) {
obj = (StgClosure*)UN_FORWARDING_PTR(obj);
debugBelch("(forwarding to %p) ", (void*)obj);
info = get_itbl(obj);
}
switch ( info->type ) {
case INVALID_OBJECT:
......
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