projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2003-07-31 17:47:18 by ross]
[ghc-hetmet.git]
/
ghc
/
rts
/
MBlock.c
diff --git
a/ghc/rts/MBlock.c
b/ghc/rts/MBlock.c
index
2f9655e
..
d276be0
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.47 2003/06/26 20:49:32 panne Exp $
*
* (c) The GHC Team 1998-1999
*
*
* (c) The GHC Team 1998-1999
*
@@
-21,6
+21,9
@@
#ifdef HAVE_STDLIB_H
#include <stdlib.h>
#endif
#ifdef HAVE_STDLIB_H
#include <stdlib.h>
#endif
+#ifdef HAVE_STRING_H
+#include <string.h>
+#endif
#ifdef HAVE_UNISTD_H
#include <unistd.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 {
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));
}
}
}
}