From: simonmar <unknown>
Date: Thu, 7 Nov 2002 14:42:25 +0000 (+0000)
Subject: [project @ 2002-11-07 14:42:25 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~1470
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9c383315203f0ad7cfd65272d04d921c0cef3cec;p=ghc-hetmet.git

[project @ 2002-11-07 14:42:25 by simonmar]
Put a "warning:" prefix on a DEBUG belch msg to make it clearer that
this isn't an error.
---

diff --git a/ghc/rts/MBlock.c b/ghc/rts/MBlock.c
index 96bb778..57d113a 100644
--- a/ghc/rts/MBlock.c
+++ b/ghc/rts/MBlock.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: MBlock.c,v 1.37 2002/11/05 22:31:53 wolfgang Exp $
+ * $Id: MBlock.c,v 1.38 2002/11/07 14:42:25 simonmar Exp $
  *
  * (c) The GHC Team 1998-1999
  *
@@ -193,7 +193,7 @@ getMBlocks(nat n)
       if (((W_)ret & MBLOCK_MASK) != 0) {
 	  // misaligned block!
 #ifdef DEBUG
-	  belch("getMBlock: misaligned block %p returned when allocating %d megablock(s) at %p", ret, n, next_request);
+	  belch("warning: getMBlock: misaligned block %p returned when allocating %d megablock(s) at %p", ret, n, next_request);
 #endif
 	  
 	  // unmap this block...