Commit b9acf060 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 757b71d9
Pipeline #7804 failed with stages
in 85 minutes and 29 seconds
......@@ -612,7 +612,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