Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
b48a5ff6
Commit
b48a5ff6
authored
Feb 09, 1999
by
simonm
Browse files
[project @ 1999-02-09 12:49:23 by simonm]
Count live data properly in the single-generation case.
parent
7c200a0f
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/rts/Stats.c
View file @
b48a5ff6
/* -----------------------------------------------------------------------------
* $Id: Stats.c,v 1.
6
1999/02/0
5
1
6:02:56
simonm Exp $
* $Id: Stats.c,v 1.
7
1999/02/0
9
1
2:49:23
simonm Exp $
*
* (c) The GHC Team, 1998-1999
*
...
...
@@ -403,7 +403,7 @@ stat_describe_gens(void)
bdescr
*
bd
;
step
*
step
;
fprintf
(
stderr
,
" Gen Steps Max Mutable Mut-Once Step Blocks Live Large
\n
Blocks Closures Closures Objects
\n
"
);
fprintf
(
stderr
,
" Gen Steps Max Mutable Mut-Once Step
Blocks Live Large
\n
Blocks Closures Closures Objects
\n
"
);
for
(
g
=
0
;
g
<
RtsFlags
.
GcFlags
.
generations
;
g
++
)
{
for
(
m
=
generations
[
g
].
mut_list
,
mut
=
0
;
m
!=
END_MUT_LIST
;
...
...
@@ -420,7 +420,12 @@ stat_describe_gens(void)
for
(
bd
=
step
->
large_objects
,
lge
=
0
;
bd
;
bd
=
bd
->
link
)
lge
++
;
live
=
0
;
for
(
bd
=
step
->
blocks
;
bd
;
bd
=
bd
->
link
)
{
if
(
RtsFlags
.
GcFlags
.
generations
==
1
)
{
bd
=
step
->
to_space
;
}
else
{
bd
=
step
->
blocks
;
}
for
(;
bd
;
bd
=
bd
->
link
)
{
live
+=
(
bd
->
free
-
bd
->
start
)
*
sizeof
(
W_
);
}
if
(
s
!=
0
)
{
...
...
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