[commit: ghc] master: rts: Handle SMALL_MUT_ARR_PTRS in retainer profilter (2cf98e2)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/2cf98e2207421200fc73c25a08f6435859cdff92/ghc

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

commit 2cf98e2207421200fc73c25a08f6435859cdff92
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


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

2cf98e2207421200fc73c25a08f6435859cdff92
 rts/RetainerProfile.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c
index 9458b13..8a64de9 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();