projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove ghc-pkg's dependency on haskell98
[ghc-hetmet.git]
/
includes
/
rts
/
storage
/
Block.h
diff --git
a/includes/rts/storage/Block.h
b/includes/rts/storage/Block.h
index
3114bea
..
4fb5a96
100644
(file)
--- 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
#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 -------------------------- */
/* Finding the block descriptor for a given block -------------------------- */
@@
-109,7
+111,8
@@
typedef struct bdescr_ {
#else
#else
-INLINE_HEADER bdescr *Bdescr(StgPtr p)
+EXTERN_INLINE bdescr *Bdescr(StgPtr p);
+EXTERN_INLINE bdescr *Bdescr(StgPtr p)
{
return (bdescr *)
((((W_)p & MBLOCK_MASK & ~BLOCK_MASK) >> (BLOCK_SHIFT-BDESCR_SHIFT))
{
return (bdescr *)
((((W_)p & MBLOCK_MASK & ~BLOCK_MASK) >> (BLOCK_SHIFT-BDESCR_SHIFT))