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
5cc57129
Commit
5cc57129
authored
Oct 21, 2002
by
simonmar
Browse files
[project @ 2002-10-21 12:42:31 by simonmar]
Turn an instance of 0xfff00000 into ~MBLOCK_MASK in the Win32 code.
parent
2be44cb2
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/rts/MBlock.c
View file @
5cc57129
/* -----------------------------------------------------------------------------
* $Id: MBlock.c,v 1.3
0
2002/10/21 1
1:38:53
simonmar Exp $
* $Id: MBlock.c,v 1.3
1
2002/10/21 1
2:42:31
simonmar Exp $
*
* (c) The GHC Team 1998-1999
*
...
...
@@ -258,7 +258,7 @@ getMBlocks(nat n)
}
else
{
end_non_committed
=
(
char
*
)
base_non_committed
+
(
unsigned
long
)
size_reserved_pool
;
/* The returned pointer is not aligned on a mega-block boundary. Make it. */
base_mblocks
=
(
char
*
)((
unsigned
long
)
base_non_committed
&
(
unsigned
long
)
0xfff00000
)
+
MBLOCK_SIZE
;
base_mblocks
=
(
char
*
)((
unsigned
long
)
base_non_committed
&
(
unsigned
long
)
~
MBLOCK_MASK
)
+
MBLOCK_SIZE
;
# if 0
fprintf
(
stderr
,
"getMBlocks: Dropping %d bytes off of 256M chunk
\n
"
,
(
unsigned
)
base_mblocks
-
(
unsigned
)
base_non_committed
);
...
...
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