X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FMBlock.c;h=96be15fe1bf2f52125d84335d8f512edfced5f0c;hb=2476a85973ed0d32021ac662486cebd0549059b8;hp=ddf8fd1dbb0c12f5862183ef31ab99d2b23958c9;hpb=905001b5bf12eb6aa2923eac32ebebf01235a684;p=ghc-hetmet.git diff --git a/ghc/rts/MBlock.c b/ghc/rts/MBlock.c index ddf8fd1..96be15f 100644 --- a/ghc/rts/MBlock.c +++ b/ghc/rts/MBlock.c @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: MBlock.c,v 1.6 1999/01/18 10:54:15 simonm 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 #endif -#if cygwin32_TARGET_OS +#if HAVE_WINDOWS_H #include #endif @@ -52,6 +54,10 @@ /* 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 */ @@ -69,7 +75,6 @@ getMBlock(void) } #ifndef _WIN32 - void * getMBlocks(nat n) {