Commit b756fcaa authored by panne's avatar panne
Browse files

[project @ 2000-12-16 15:20:30 by panne]

Merge rev. 1.18.2.2
parent e1ece81f
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* $Id: MBlock.c,v 1.19 2000/12/04 12:31:21 simonmar Exp $ * $Id: MBlock.c,v 1.20 2000/12/16 15:20:30 panne Exp $
* *
* (c) The GHC Team 1998-1999 * (c) The GHC Team 1998-1999
* *
...@@ -79,7 +79,7 @@ getMBlocks(nat n) ...@@ -79,7 +79,7 @@ getMBlocks(nat n)
} }
if (((W_)ret & MBLOCK_MASK) != 0) { if (((W_)ret & MBLOCK_MASK) != 0) {
barf("GetMBlock: misaligned block returned"); barf("GetMBlock: misaligned block %p returned when allocating %d megablock(s) at %p", ret, n, next_request);
} }
IF_DEBUG(gc,fprintf(stderr,"Allocated %d megablock(s) at %x\n",n,(nat)ret)); IF_DEBUG(gc,fprintf(stderr,"Allocated %d megablock(s) at %x\n",n,(nat)ret));
......
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