diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2018-04-05 18:41:02 +0300 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2018-04-05 18:41:12 +0300 |
| commit | c2f90c84e6dcf4331e934a76de313b168c77b6dc (patch) | |
| tree | 9b7b5f9f669dfbaa6fb8c042a0127545f5cca0d4 /rts/RetainerProfile.c | |
| parent | 72b5f649ede82ab3bb429aa72ee1c572f415b0eb (diff) | |
| download | haskell-c2f90c84e6dcf4331e934a76de313b168c77b6dc.tar.gz | |
Remove unused bdescr flag BF_FREE
Reviewers: bgamari, simonmar, erikd
Reviewed By: bgamari, simonmar
Subscribers: thomie, carter
Differential Revision: https://phabricator.haskell.org/D4539
Diffstat (limited to 'rts/RetainerProfile.c')
| -rw-r--r-- | rts/RetainerProfile.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c index 42ddae3777..79bb7e3cfb 100644 --- a/rts/RetainerProfile.c +++ b/rts/RetainerProfile.c @@ -2068,7 +2068,7 @@ retainerProfile(void) #if defined(DEBUG_RETAINER) #define LOOKS_LIKE_PTR(r) ((LOOKS_LIKE_STATIC_CLOSURE(r) || \ - ((HEAP_ALLOCED(r) && ((Bdescr((P_)r)->flags & BF_FREE) == 0)))) && \ + (HEAP_ALLOCED(r))) && \ ((StgWord)(*(StgPtr)r)!=(StgWord)0xaaaaaaaaaaaaaaaaULL)) static uint32_t |