Commit 3cbaa0c8 authored by simonmar's avatar simonmar
Browse files

[project @ 2003-03-20 15:43:31 by simonmar]

Out of memory should be a belch(), not a barf().
parent 59f66372
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* $Id: MBlock.c,v 1.42 2002/12/11 15:36:42 simonmar Exp $ * $Id: MBlock.c,v 1.43 2003/03/20 15:43:31 simonmar Exp $
* *
* (c) The GHC Team 1998-1999 * (c) The GHC Team 1998-1999
* *
...@@ -127,7 +127,8 @@ my_mmap (void *addr, int size) ...@@ -127,7 +127,8 @@ my_mmap (void *addr, int size)
if (ret == (void *)-1) { if (ret == (void *)-1) {
if (errno == ENOMEM) { if (errno == ENOMEM) {
barf("out of memory (requested %d bytes)", size); prog_belch("out of memory (requested %d bytes)", size);
stg_exit(EXIT_FAILURE);
} else { } else {
barf("getMBlock: mmap failed"); barf("getMBlock: mmap failed");
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment