Fix building with GHC 6.8

[ghc-hetmet.git] / rts / sm / MBlock.h

diff --git a/rts/sm/MBlock.h b/rts/sm/MBlock.h
index ecce6f8..ef6f8de 100644 (file)
--- a/rts/sm/MBlock.h
+++ b/rts/sm/MBlock.h
@@ -1,9 +1,12 @@
 /* -----------------------------------------------------------------------------
  *
- * (c) The GHC Team, 1998-2005
+ * (c) The GHC Team, 1998-2008
  *
  * MegaBlock Allocator interface.
  *
+ * See wiki commentary at
+ *  http://hackage.haskell.org/trac/ghc/wiki/Commentary/HeapAlloced
+ *
  * ---------------------------------------------------------------------------*/
 
 #ifndef MBLOCK_H
@@ -16,12 +19,20 @@ extern void * getMBlock(void);
 extern void * getMBlocks(nat n);
 extern void freeAllMBlocks(void);
 
+#ifdef DEBUG
+extern void *getFirstMBlock(void);
+extern void *getNextMBlock(void *mblock);
+#endif
+
 /* -----------------------------------------------------------------------------
    The HEAP_ALLOCED() test.
 
    HEAP_ALLOCED is called FOR EVERY SINGLE CLOSURE during GC.
    It needs to be FAST.
 
+   See wiki commentary at
+     http://hackage.haskell.org/trac/ghc/wiki/Commentary/HeapAlloced
+
    Implementation of HEAP_ALLOCED
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~