replace sparc-specific Int64 code with calls to platform-independent macros

[ghc-hetmet.git] / includes / Block.h

diff --git a/includes/Block.h b/includes/Block.h
index 3d7a5c8..ec894da 100644 (file)
--- a/includes/Block.h
+++ b/includes/Block.h
@@ -92,7 +92,8 @@ typedef struct bdescr_ {
 #define BF_EXEC             32
 /* Block contains only a small amount of live data */
 #define BF_FRAGMENTED 64
-
+/* we know about this block (for finding leaks) */
+#define BF_KNOWN     128
 
 /* Finding the block descriptor for a given block -------------------------- */
 
@@ -257,5 +258,14 @@ round_to_mblocks(StgWord words)
     return words;
 }
 
+INLINE_HEADER StgWord
+round_up_to_mblocks(StgWord words)
+{
+    words += FIRST_BLOCK_OFF/sizeof(W_);
+    words = ((words / MBLOCK_SIZE_W) + 1) * MBLOCK_SIZE_W;
+    words -= FIRST_BLOCK_OFF/sizeof(W_);
+    return words;
+}
+
 #endif /* !CMINUSMINUS */
 #endif /* BLOCK_H */