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
46dfa530
Commit
46dfa530
authored
Feb 03, 1999
by
simonm
Browse files
[project @ 1999-02-03 16:42:18 by simonm]
Fix GC stats printing.
parent
8d0e9847
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/rts/Stats.c
View file @
46dfa530
/* -----------------------------------------------------------------------------
* $Id: Stats.c,v 1.
4
1999/02/0
2
1
4:21:32
simonm Exp $
* $Id: Stats.c,v 1.
5
1999/02/0
3
1
6:42:18
simonm Exp $
*
* Statistics and timing-related functions.
*
...
...
@@ -410,7 +410,7 @@ stat_describe_gens(void)
for
(
m
=
generations
[
g
].
mut_once_list
,
mut_once
=
0
;
m
!=
END_MUT_LIST
;
m
=
m
->
mut_link
)
mut_once
++
;
fprintf
(
stderr
,
"%8d %8d %8d %9d %
8
d"
,
g
,
generations
[
g
].
n_steps
,
fprintf
(
stderr
,
"%8d %8d %8d %9d %
9
d"
,
g
,
generations
[
g
].
n_steps
,
generations
[
g
].
max_blocks
,
mut
,
mut_once
);
for
(
s
=
0
;
s
<
generations
[
g
].
n_steps
;
s
++
)
{
...
...
@@ -422,7 +422,7 @@ stat_describe_gens(void)
live
+=
(
bd
->
free
-
bd
->
start
)
*
sizeof
(
W_
);
}
if
(
s
!=
0
)
{
fprintf
(
stderr
,
"%
3
6s"
,
""
);
fprintf
(
stderr
,
"%
4
6s"
,
""
);
}
fprintf
(
stderr
,
"%6d %8d %8d %8d
\n
"
,
s
,
step
->
n_blocks
,
live
,
lge
);
...
...
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