X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FMBlock.c;fp=ghc%2Frts%2FMBlock.c;h=4d4b1a38c3e4d98cc091e8155bc8954ff414450c;hb=04793e4a7573ff2f02ad2cc59614b66c434874b7;hp=d276be0feb9310c0353c9b88b901ebe39c02ec70;hpb=12b7f98ff1b4e8446b92c6147e03c4d63756b461;p=ghc-hetmet.git diff --git a/ghc/rts/MBlock.c b/ghc/rts/MBlock.c index d276be0..4d4b1a3 100644 --- a/ghc/rts/MBlock.c +++ b/ghc/rts/MBlock.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: MBlock.c,v 1.47 2003/06/26 20:49:32 panne Exp $ + * $Id: MBlock.c,v 1.48 2003/09/19 09:04:09 simonmar Exp $ * * (c) The GHC Team 1998-1999 * @@ -94,7 +94,7 @@ my_mmap (void *addr, lnat size) { void *ret; -#ifdef solaris2_TARGET_OS +#if defined(solaris2_TARGET_OS) || defined(irix_TARGET_OS) { int fd = open("/dev/zero",O_RDONLY); ret = mmap(addr, size, PROT_READ | PROT_WRITE, MAP_PRIVATE, fd, 0);