X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FMBlock.h;h=4fac8674f55922ae2474662a5214d46a5079af86;hb=1551823b9461f62755a30086ea18c7149b09b2bc;hp=437d65d02e0e257f078dcf335891a0c1a0058483;hpb=780454451b96cfa5727287469b0daf459170f2f2;p=ghc-hetmet.git

diff --git a/ghc/rts/MBlock.h b/ghc/rts/MBlock.h
index 437d65d..4fac867 100644
--- a/ghc/rts/MBlock.h
+++ b/ghc/rts/MBlock.h
@@ -1,15 +1,16 @@
 /* -----------------------------------------------------------------------------
- * $Id: MBlock.h,v 1.10 2001/07/26 03:26:28 ken Exp $
+ * $Id: MBlock.h,v 1.13 2002/02/14 17:21:50 sof Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
  * MegaBlock Allocator interface.
  *
  * ---------------------------------------------------------------------------*/
-
+#ifndef __MBLOCK_H__
+#define __MBLOCK_H__
 extern lnat mblocks_allocated;
 
-#ifdef ENABLE_WIN32_DLL_SUPPORT
+#if defined(mingw32_TARGET_OS)
 extern int is_heap_alloced(const void* p);
 #endif
 
@@ -52,7 +53,7 @@ extern void * getMBlocks(nat n);
 /* guess */
 #define HEAP_BASE 0x50000000
 
-#elif macosx_TARGET_OS
+#elif darwin_TARGET_OS
 /* guess */
 #define HEAP_BASE 0x50000000
 
@@ -63,3 +64,5 @@ extern void * getMBlocks(nat n);
 #error Dont know where to get memory from on this architecture
 /* ToDo: memory locations on other architectures */
 #endif
+
+#endif