X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Frts%2FMBlock.c;h=5e2fd2406307818b76b23d314aad52b60063330d;hb=b70e2f9494a0206e5102a54de39c3c7f78554095;hp=ddf8fd1dbb0c12f5862183ef31ab99d2b23958c9;hpb=905001b5bf12eb6aa2923eac32ebebf01235a684;p=ghc-hetmet.git diff --git a/ghc/rts/MBlock.c b/ghc/rts/MBlock.c index ddf8fd1..5e2fd24 100644 --- a/ghc/rts/MBlock.c +++ b/ghc/rts/MBlock.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: MBlock.c,v 1.6 1999/01/18 10:54:15 simonm Exp $ + * $Id: MBlock.c,v 1.8 1999/01/26 10:41:20 sof Exp $ * * MegaBlock Allocator Interface. This file contains all the dirty * architecture-dependent hackery required to get a chunk of aligned @@ -31,7 +31,7 @@ #include #endif -#if cygwin32_TARGET_OS +#if HAVE_WINDOWS_H #include #endif @@ -52,6 +52,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 +73,6 @@ getMBlock(void) } #ifndef _WIN32 - void * getMBlocks(nat n) {