X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FMBlock.h;h=14244dcef3c593fc962a1c2146cedc0eafc3fa10;hb=6c0441c137c46d4773c088671e1ce84844e94b7c;hp=1cc0dc5a1f3162b75e31f00cd6f30e85b912b76b;hpb=ab0e778ccfde61aed4c22679b24d175fc6cc9bf3;p=ghc-hetmet.git

diff --git a/rts/sm/MBlock.h b/rts/sm/MBlock.h
index 1cc0dc5..14244dc 100644
--- a/rts/sm/MBlock.h
+++ b/rts/sm/MBlock.h
@@ -1,6 +1,6 @@
 /* -----------------------------------------------------------------------------
  *
- * (c) The GHC Team, 1998-2005
+ * (c) The GHC Team, 1998-2008
  *
  * MegaBlock Allocator interface.
  *
@@ -11,24 +11,14 @@
 
 extern lnat RTS_VAR(mblocks_allocated);
 
+extern void initMBlocks(void);
 extern void * getMBlock(void);
 extern void * getMBlocks(nat n);
 extern void freeAllMBlocks(void);
 
-#if osf3_HOST_OS
-/* ToDo: Perhaps by adjusting this value we can make linking without
- * -static work (i.e., not generate a core-dumping executable)? */
-#if SIZEOF_VOID_P == 8
-#define HEAP_BASE 0x180000000L
-#else
-#error I have no idea where to begin the heap on a non-64-bit osf3 machine.
-#endif
-
-#else
-
-// we're using the generic method
-#define HEAP_BASE 0
-
+#ifdef DEBUG
+extern void *getFirstMBlock(void);
+extern void *getNextMBlock(void *mblock);
 #endif
 
 /* -----------------------------------------------------------------------------