[commit: ghc] master: printStackChunk: recognise a few more ret frames (875b61e)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/875b61ea38aa912d153a30027b51a4f12508bb9a/ghc

>---------------------------------------------------------------

commit 875b61ea38aa912d153a30027b51a4f12508bb9a
Author: Ömer Sinan Ağacan <omeragacan at gmail.com>
Date:   Sun May 6 10:31:22 2018 +0300

    printStackChunk: recognise a few more ret frames


>---------------------------------------------------------------

875b61ea38aa912d153a30027b51a4f12508bb9a
 rts/Printer.c | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/rts/Printer.c b/rts/Printer.c
index 87a2cb1..d184423 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" );