projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e1ece81
)
[project @ 2000-12-16 15:20:30 by panne]
author
panne
<unknown>
Sat, 16 Dec 2000 15:20:30 +0000
(15:20 +0000)
committer
panne
<unknown>
Sat, 16 Dec 2000 15:20:30 +0000
(15:20 +0000)
Merge rev. 1.18.2.2
ghc/rts/MBlock.c
patch
|
blob
|
history
diff --git
a/ghc/rts/MBlock.c
b/ghc/rts/MBlock.c
index
3c7fcaf
..
568bff2
100644
(file)
--- 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
*
*
* (c) The GHC Team 1998-1999
*
@@
-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));