diff options
| author | Ben Gamari <bgamari.foss@gmail.com> | 2018-08-28 00:59:17 +0200 |
|---|---|---|
| committer | Krzysztof Gogolewski <krz.gogolewski@gmail.com> | 2018-08-28 00:59:17 +0200 |
| commit | 2cf98e2207421200fc73c25a08f6435859cdff92 (patch) | |
| tree | 7789d0bd7b502727a881b128be436a7cc0e4e2a2 | |
| parent | 154d4e219cc0cebbef8a845609bd63ec45fdbea6 (diff) | |
| download | haskell-2cf98e2207421200fc73c25a08f6435859cdff92.tar.gz | |
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
| -rw-r--r-- | rts/RetainerProfile.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c index 9458b1327e..8a64de9e14 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(); |