diff options
| author | Daniel Gröber <dxld@darkboxed.org> | 2019-07-16 14:54:37 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-02-17 11:21:11 -0500 |
| commit | 30c01e4227e99e10e50b05075ec071cf7950ae78 (patch) | |
| tree | efe086da6e16a9766644c9ceae8a1c168c54b67d /rts/ProfHeap.c | |
| parent | d7bbaf5d45fd7b88ce331659abe29d16d086684b (diff) | |
| download | haskell-30c01e4227e99e10e50b05075ec071cf7950ae78.tar.gz | |
rts: TraverseHeap: Move "flip" bit into traverseState struct
Diffstat (limited to 'rts/ProfHeap.c')
| -rw-r--r-- | rts/ProfHeap.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/ProfHeap.c b/rts/ProfHeap.c index 195a6b6af2..336013f255 100644 --- a/rts/ProfHeap.c +++ b/rts/ProfHeap.c @@ -215,7 +215,7 @@ closureIdentity( const StgClosure *p ) case HEAP_BY_RETAINER: // AFAIK, the only closures in the heap which might not have a // valid retainer set are DEAD_WEAK closures. - if (isTravDataValid(p)) + if (isRetainerSetValid(p)) return retainerSetOf(p); else return NULL; @@ -739,7 +739,7 @@ closureSatisfiesConstraints( const StgClosure* p ) // reason it might not be valid is if this closure is a // a newly deceased weak pointer (i.e. a DEAD_WEAK), since // these aren't reached by the retainer profiler's traversal. - if (isTravDataValid((StgClosure *)p)) { + if (isRetainerSetValid((StgClosure *)p)) { rs = retainerSetOf((StgClosure *)p); if (rs != NULL) { for (i = 0; i < rs->num; i++) { |