From 1d8374cbcbd8f7ec21ff643f0baeb5fb61a2b7dd Mon Sep 17 00:00:00 2001 From: simonmar Date: Tue, 5 Nov 2002 09:26:04 +0000 Subject: [PATCH] [project @ 2002-11-05 09:26:04 by simonmar] Wibble in "out of memory" error message (we actually get to see it now, rather than "getMBlock: misaligned block..."). --- ghc/rts/MBlock.c | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/ghc/rts/MBlock.c b/ghc/rts/MBlock.c index 5f6cfb7..2f083b3 100644 --- a/ghc/rts/MBlock.c +++ b/ghc/rts/MBlock.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: MBlock.c,v 1.34 2002/10/27 21:46:27 wolfgang Exp $ + * $Id: MBlock.c,v 1.35 2002/11/05 09:26:04 simonmar Exp $ * * (c) The GHC Team 1998-1999 * @@ -184,8 +184,7 @@ getMBlocks(nat n) if (ret == (void *)-1) { if (errno == ENOMEM) { - belch("out of memory (requested %d bytes)", n * BLOCK_SIZE); - stg_exit(EXIT_FAILURE); + barf("out of memory (requested %d bytes)", n * MBLOCK_SIZE); } else { barf("getMBlock: mmap failed"); } -- 1.7.10.4