diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-10-30 14:40:01 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-10-31 11:21:30 +0000 |
| commit | ab5008d4498177dd375f942618ceab46ae37671a (patch) | |
| tree | d7c7a35a1bc25f7c4f963d86a8def88e2cab87bc /rts | |
| parent | 7e255c5c67cbc60d2d85ee21f03c0e868eb510c1 (diff) | |
| download | haskell-ab5008d4498177dd375f942618ceab46ae37671a.tar.gz | |
Retainer prof: immutable arrays are not retainers, and fix the docs
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/RetainerProfile.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c index 5f9164b77b..24745eae1a 100644 --- a/rts/RetainerProfile.c +++ b/rts/RetainerProfile.c @@ -1013,8 +1013,6 @@ isRetainer( StgClosure *c ) case MUT_VAR_DIRTY: case MUT_ARR_PTRS_CLEAN: case MUT_ARR_PTRS_DIRTY: - case MUT_ARR_PTRS_FROZEN: - case MUT_ARR_PTRS_FROZEN0: // thunks are retainers. case THUNK: @@ -1071,6 +1069,9 @@ isRetainer( StgClosure *c ) case ARR_WORDS: // STM case TREC_CHUNK: + // immutable arrays + case MUT_ARR_PTRS_FROZEN: + case MUT_ARR_PTRS_FROZEN0: return rtsFalse; // |