diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2018-05-06 10:31:22 +0300 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2018-05-06 10:31:25 +0300 |
| commit | 875b61ea38aa912d153a30027b51a4f12508bb9a (patch) | |
| tree | 75dc6961ef16cd309ba1dc47c1fedff872ed47fd /rts/Printer.c | |
| parent | 7271db46c332f15c302b9a55f4ed005cdd0fb898 (diff) | |
| download | haskell-875b61ea38aa912d153a30027b51a4f12508bb9a.tar.gz | |
printStackChunk: recognise a few more ret frames
Diffstat (limited to 'rts/Printer.c')
| -rw-r--r-- | rts/Printer.c | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/rts/Printer.c b/rts/Printer.c index 87a2cb1927..d184423678 100644 --- a/rts/Printer.c +++ b/rts/Printer.c @@ -542,6 +542,18 @@ printStackChunk( StgPtr sp, StgPtr spBottom ) debugBelch("stg_ap_ppppp_info\n" ); } else if (c == (StgWord)&stg_ap_pppppp_info) { debugBelch("stg_ap_pppppp_info\n" ); + } else if (c == (StgWord)&stg_ret_v_info) { + debugBelch("stg_ret_v_info\n" ); + } else if (c == (StgWord)&stg_ret_p_info) { + debugBelch("stg_ret_p_info\n" ); + } else if (c == (StgWord)&stg_ret_n_info) { + debugBelch("stg_ret_n_info\n" ); + } else if (c == (StgWord)&stg_ret_f_info) { + debugBelch("stg_ret_f_info\n" ); + } else if (c == (StgWord)&stg_ret_d_info) { + debugBelch("stg_ret_d_info\n" ); + } else if (c == (StgWord)&stg_ret_l_info) { + debugBelch("stg_ret_l_info\n" ); #if defined(PROFILING) } else if (c == (StgWord)&stg_restore_cccs_info) { debugBelch("stg_restore_cccs_info\n" ); |