diff options
| author | Marco Túlio Gontijo e Silva <marcot@marcot.eti.br> | 2010-07-18 22:55:26 +0000 |
|---|---|---|
| committer | Marco Túlio Gontijo e Silva <marcot@marcot.eti.br> | 2010-07-18 22:55:26 +0000 |
| commit | eff182c31745b958d627d4feb1e53c09298c6836 (patch) | |
| tree | 31aa266ea6e532071e2c729c8c42ce9283a67bc3 /includes | |
| parent | 8d1cbbdf6d4e40d116e3c4661ef5a245f23f9511 (diff) | |
| download | haskell-eff182c31745b958d627d4feb1e53c09298c6836.tar.gz | |
Don't check for swept blocks in -DS.
The checkHeap function assumed the allocated part of the block contained only
alive objects and slops. This was not true for blocks that are collected using
mark sweep. The code in this patch skip the test for this kind of blocks.
Diffstat (limited to 'includes')
| -rw-r--r-- | includes/rts/storage/Block.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/includes/rts/storage/Block.h b/includes/rts/storage/Block.h index d6a4d4c487..4fb5a96c54 100644 --- a/includes/rts/storage/Block.h +++ b/includes/rts/storage/Block.h @@ -98,6 +98,8 @@ typedef struct bdescr_ { #define BF_FRAGMENTED 64 /* we know about this block (for finding leaks) */ #define BF_KNOWN 128 +/* Block was swept in the last generation */ +#define BF_SWEPT 256 /* Finding the block descriptor for a given block -------------------------- */ |