From b756fcaa083986e10a6c0282fdaf677fc01f3308 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Sat, 16 Dec 2000 15:20:30 +0000
Subject: [PATCH] [project @ 2000-12-16 15:20:30 by panne] Merge rev. 1.18.2.2

---
 ghc/rts/MBlock.c |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/rts/MBlock.c b/ghc/rts/MBlock.c
index 3c7fcaf..568bff2 100644
--- a/ghc/rts/MBlock.c
+++ b/ghc/rts/MBlock.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $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
  *
@@ -79,7 +79,7 @@ getMBlocks(nat n)
   }
 
   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));
-- 
1.7.10.4