[commit: ghc] master: Remove unused bdescr flag BF_FREE (c2f90c8)

[git at git.haskell.org]

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

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

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

commit c2f90c84e6dcf4331e934a76de313b168c77b6dc
Author: Ömer Sinan Ağacan <omeragacan at gmail.com>
Date:   Thu Apr 5 18:41:02 2018 +0300

    Remove unused bdescr flag BF_FREE
    
    Reviewers: bgamari, simonmar, erikd
    
    Reviewed By: bgamari, simonmar
    
    Subscribers: thomie, carter
    
    Differential Revision: https://phabricator.haskell.org/D4539


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

c2f90c84e6dcf4331e934a76de313b168c77b6dc
 includes/rts/storage/Block.h | 2 --
 rts/RetainerProfile.c        | 2 +-
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/includes/rts/storage/Block.h b/includes/rts/storage/Block.h
index c1d2518..9ba0b15 100644
--- a/includes/rts/storage/Block.h
+++ b/includes/rts/storage/Block.h
@@ -143,8 +143,6 @@ typedef struct bdescr_ {
 #define BF_PINNED    4
 /* Block is to be marked, not copied */
 #define BF_MARKED    8
-/* Block is free, and on the free list  (TODO: is this used?) */
-#define BF_FREE      16
 /* Block is executable */
 #define BF_EXEC      32
 /* Block contains only a small amount of live data */
diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c
index 42ddae3..79bb7e3 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