X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FMBlock.c;h=d276be0feb9310c0353c9b88b901ebe39c02ec70;hb=59940493f000b3542a93d71e925d37a3f61b2f1a;hp=2f9655ef4e6f0a00d292804a91152dedce2c92aa;hpb=c7268677eec041516dad5e0b804c393b8e0e9adb;p=ghc-hetmet.git

diff --git a/ghc/rts/MBlock.c b/ghc/rts/MBlock.c
index 2f9655e..d276be0 100644
--- 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.47 2003/06/26 20:49:32 panne Exp $
  *
  * (c) The GHC Team 1998-1999
  *
@@ -21,6 +21,9 @@
 #ifdef HAVE_STDLIB_H
 #include <stdlib.h>
 #endif
+#ifdef HAVE_STRING_H
+#include <string.h>
+#endif
 #ifdef HAVE_UNISTD_H
 #include <unistd.h>
 #endif
@@ -133,7 +136,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));
 	}
     }