[commit: ghc] ghc-8.6: rts: Handle SMALL_MUT_ARR_PTRS in retainer profilter (76a2331)

[git at git.haskell.org]

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

On branch  : ghc-8.6
Link       : http://ghc.haskell.org/trac/ghc/changeset/76a233143f1ec940f342ce3ce3afaf306923b392/ghc

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

commit 76a233143f1ec940f342ce3ce3afaf306923b392
Author: Ben Gamari <bgamari.foss at gmail.com>
Date:   Tue Aug 28 00:59:17 2018 +0200

    rts: Handle SMALL_MUT_ARR_PTRS in retainer profilter
    
    Summary: These can be treated similarly to MUT_ARRY_PTRS. Fixes #15529.
    
    Reviewers: erikd, simonmar
    
    Reviewed By: simonmar
    
    Subscribers: RyanGlScott, rwbarton, carter
    
    GHC Trac Issues: #15529
    
    Differential Revision: https://phabricator.haskell.org/D5075
    
    (cherry picked from commit 2cf98e2207421200fc73c25a08f6435859cdff92)


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

76a233143f1ec940f342ce3ce3afaf306923b392
 rts/RetainerProfile.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c
index 6a0af21..d260f19 100644
--- a/rts/RetainerProfile.c
+++ b/rts/RetainerProfile.c
@@ -811,6 +811,10 @@ pop( StgClosure **c, StgClosure **cp, retainer *r )
         case MUT_ARR_PTRS_DIRTY:
         case MUT_ARR_PTRS_FROZEN_CLEAN:
         case MUT_ARR_PTRS_FROZEN_DIRTY:
+        case SMALL_MUT_ARR_PTRS_CLEAN:
+        case SMALL_MUT_ARR_PTRS_DIRTY:
+        case SMALL_MUT_ARR_PTRS_FROZEN_CLEAN:
+        case SMALL_MUT_ARR_PTRS_FROZEN_DIRTY:
             *c = find_ptrs(&se->info);
             if (*c == NULL) {
                 popOff();