diff options
| author | Sven Tennie <sven.tennie@gmail.com> | 2023-04-19 06:36:41 +0000 |
|---|---|---|
| committer | Sven Tennie <sven.tennie@gmail.com> | 2023-05-05 19:59:53 +0000 |
| commit | 0a77b36407d9b32e5233bb6ea3c7b4dbc4aacc34 (patch) | |
| tree | 6fb15792ac50f2abf9ec5848550cad496cce7a12 | |
| parent | 62c74837b23be09283ed5a07f8efc3cfe13b47e1 (diff) | |
| download | haskell-0a77b36407d9b32e5233bb6ea3c7b4dbc4aacc34.tar.gz | |
Printer: More readable RET_FUN code
| -rw-r--r-- | rts/Printer.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/rts/Printer.c b/rts/Printer.c index a040aefd6f..158803616b 100644 --- a/rts/Printer.c +++ b/rts/Printer.c @@ -757,17 +757,17 @@ printStackChunk( StgPtr sp, StgPtr spBottom ) 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: - printSmallBitmap(spBottom, sp+3, + printSmallBitmap(spBottom, &ret_fun->payload, BITMAP_BITS(fun_info->f.b.bitmap), BITMAP_SIZE(fun_info->f.b.bitmap)); break; case ARG_GEN_BIG: - printLargeBitmap(spBottom, sp+3, + printLargeBitmap(spBottom, &ret_fun->payload, GET_FUN_LARGE_BITMAP(fun_info), GET_FUN_LARGE_BITMAP(fun_info)->size); break; default: - printSmallBitmap(spBottom, sp+3, + printSmallBitmap(spBottom, &ret_fun->payload, BITMAP_BITS(stg_arg_bitmaps[fun_info->f.fun_type]), BITMAP_SIZE(stg_arg_bitmaps[fun_info->f.fun_type])); break; |