X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Frts%2FMBlock.c;h=0ca384bbe6e49d5622a05fb19b2aff8de9adb2f3;hp=b0bd3c975824b127f090ac04cba18bade3172c66;hb=5ca4a0134475bbc790af6ce7d7517a97e877bff6;hpb=016c809cabf84058a415d70cb1a55585e5e8c6b4 diff --git a/ghc/rts/MBlock.c b/ghc/rts/MBlock.c index b0bd3c9..0ca384b 100644 --- a/ghc/rts/MBlock.c +++ b/ghc/rts/MBlock.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: MBlock.c,v 1.24 2001/10/26 11:49:19 sewardj Exp $ + * $Id: MBlock.c,v 1.25 2001/12/10 01:28:00 sebc Exp $ * * (c) The GHC Team 1998-1999 * @@ -66,7 +66,7 @@ getMBlocks(nat n) #elif hpux_TARGET_OS ret = mmap(next_request, size, PROT_READ | PROT_WRITE, MAP_ANONYMOUS | MAP_PRIVATE, -1, 0); -#elif macosx_TARGET_OS +#elif darwin_TARGET_OS ret = mmap(next_request, size, PROT_READ | PROT_WRITE, MAP_FIXED | MAP_ANON | MAP_PRIVATE, -1, 0); #else