Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
jberryman
GHC
Commits
b756fcaa
Commit
b756fcaa
authored
Dec 16, 2000
by
panne
Browse files
[project @ 2000-12-16 15:20:30 by panne]
Merge rev. 1.18.2.2
parent
e1ece81f
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/rts/MBlock.c
View file @
b756fcaa
/* -----------------------------------------------------------------------------
* $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
));
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment