diff options
| -rw-r--r-- | includes/rts/storage/Block.h | 2 | ||||
| -rw-r--r-- | rts/RetainerProfile.c | 2 |
2 files changed, 1 insertions, 3 deletions
diff --git a/includes/rts/storage/Block.h b/includes/rts/storage/Block.h index c1d251856a..9ba0b15635 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 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 |