Commit 1884158a authored by Siddharth Bhat's avatar Siddharth Bhat
Browse files

Make printer untag when chasing a pointer in a RET_FUN frame

This is to mimic what `Scav.c` does. This should fix a crash in
the printer.
parent bd660ede
Pipeline #7805 passed with stages
in 381 minutes and 51 seconds
......@@ -613,7 +613,7 @@ printStackChunk( StgPtr sp, StgPtr spBottom )
StgRetFun *ret_fun;
ret_fun = (StgRetFun *)sp;
fun_info = get_fun_itbl(ret_fun->fun);
fun_info = get_fun_itbl(UNTAG_CLOSURE(ret_fun->fun));
debugBelch("RET_FUN (%p) (type=%d)\n", ret_fun->fun, (int)fun_info->f.fun_type);
switch (fun_info->f.fun_type) {
case ARG_GEN:
......
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