From: stolz <unknown>
Date: Wed, 21 May 2003 13:22:46 +0000 (+0000)
Subject: [project @ 2003-05-21 13:22:46 by stolz]
X-Git-Tag: Approx_11550_changesets_converted~881
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=1f375b9efc78827d6196b09760b292ae29fec5ce

[project @ 2003-05-21 13:22:46 by stolz]
Call strerror() instead of sys_errlist[errno] (deprecated & smells bad)
(Broke Solaris-build here)
---

diff --git a/ghc/rts/MBlock.c b/ghc/rts/MBlock.c
index 2f9655e..f59065e 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.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));
 	}
     }