[project @ 2003-05-21 13:22:46 by stolz]

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

diff --git a/ghc/rts/MBlock.c b/ghc/rts/MBlock.c
index 2f9655e..f59065e 100644 (file)
--- a/ghc/rts/MBlock.c
+++ b/ghc/rts/MBlock.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: MBlock.c,v 1.45 2003/05/14 09:11:06 simonmar Exp $
+ * $Id: MBlock.c,v 1.46 2003/05/21 13:22:46 stolz Exp $
  *
  * (c) The GHC Team 1998-1999
  *
@@ -133,7 +133,7 @@ my_mmap (void *addr, lnat size)
            prog_belch("out of memory (requested %d bytes)", size);
            stg_exit(EXIT_FAILURE);
        } else {
-           barf("getMBlock: mmap: %s", sys_errlist[errno]);
+           barf("getMBlock: mmap: %s", strerror(errno));
        }
     }