[project @ 2002-01-21 17:18:43 by sof]

multi-slurp protect

ghc/rts/MBlock.h

 /* -----------------------------------------------------------------------------
- * $Id: MBlock.h,v 1.11 2001/12/10 01:28:00 sebc Exp $
+ * $Id: MBlock.h,v 1.12 2002/01/21 17:18:43 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
@@ -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