[project @ 1999-03-01 17:41:50 by simonm]

[ghc-hetmet.git] / ghc / rts / MBlock.c

diff --git a/ghc/rts/MBlock.c b/ghc/rts/MBlock.c
index 249493a..96be15f 100644 (file)
--- a/ghc/rts/MBlock.c
+++ b/ghc/rts/MBlock.c
@@ -1,5 +1,7 @@
 /* -----------------------------------------------------------------------------
- * $Id: MBlock.c,v 1.5 1999/01/18 09:20:08 sof Exp $
+ * $Id: MBlock.c,v 1.9 1999/02/05 16:02:44 simonm Exp $
+ *
+ * (c) The GHC Team 1998-1999
  *
  * MegaBlock Allocator Interface.  This file contains all the dirty
  * architecture-dependent hackery required to get a chunk of aligned
@@ -31,7 +33,7 @@
 #include <fcntl.h>
 #endif
 
-#if cygwin32_TARGET_OS
+#if HAVE_WINDOWS_H
 #include <windows.h>
 #endif
 
@@ -52,6 +54,13 @@
 /* guess */
 #define ASK_FOR_MEM_AT 0x50000000
 
+#elif osf3_TARGET_OS
+/* guess */
+#define ASK_FOR_MEM_AT 0x50000000
+
+#elif _WIN32
+/* doesn't matter, we use a reserve/commit algorithm */
+
 #else
 #error Dont know where to get memory from on this architecture
 /* ToDo: memory locations on other architectures */
@@ -66,7 +75,6 @@ getMBlock(void)
 }
 
 #ifndef _WIN32
-
 void *
 getMBlocks(nat n)
 {