Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
6b9f9a04
Commit
6b9f9a04
authored
Nov 22, 2007
by
simonmar@microsoft.com
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
stats: print elapsed time for GC in each generation
parent
a837a348
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
2 deletions
+10
-2
rts/Stats.c
rts/Stats.c
+10
-2
No files found.
rts/Stats.c
View file @
6b9f9a04
...
...
@@ -66,6 +66,7 @@ static lnat ResidencySamples = 0; // for stats only
static
lnat
GC_start_faults
=
0
,
GC_end_faults
=
0
;
static
Ticks
*
GC_coll_times
;
static
Ticks
*
GC_coll_etimes
;
static
void
statsFlush
(
void
);
static
void
statsClose
(
void
);
...
...
@@ -138,8 +139,13 @@ initStats(void)
(
Ticks
*
)
stgMallocBytes
(
sizeof
(
Ticks
)
*
RtsFlags
.
GcFlags
.
generations
,
"initStats"
);
GC_coll_etimes
=
(
Ticks
*
)
stgMallocBytes
(
sizeof
(
Ticks
)
*
RtsFlags
.
GcFlags
.
generations
,
"initStats"
);
for
(
i
=
0
;
i
<
RtsFlags
.
GcFlags
.
generations
;
i
++
)
{
GC_coll_times
[
i
]
=
0
;
GC_coll_etimes
[
i
]
=
0
;
}
}
...
...
@@ -314,6 +320,7 @@ stat_endGC (lnat alloc, lnat live, lnat copied, lnat gen)
}
GC_coll_times
[
gen
]
+=
gc_time
;
GC_coll_etimes
[
gen
]
+=
gc_etime
;
GC_tot_copied
+=
(
ullong
)
copied
;
GC_tot_alloc
+=
(
ullong
)
alloc
;
...
...
@@ -533,9 +540,10 @@ stat_exit(int alloc)
/* Print garbage collections in each gen */
for
(
g
=
0
;
g
<
RtsFlags
.
GcFlags
.
generations
;
g
++
)
{
statsPrintf
(
"%11d collections in generation %d
(%6.2fs)
\n
"
,
statsPrintf
(
"%11d collections in generation %d
, %6.2fs, %6.2fs elapsed
\n
"
,
generations
[
g
].
collections
,
g
,
TICK_TO_DBL
(
GC_coll_times
[
g
]));
TICK_TO_DBL
(
GC_coll_times
[
g
]),
TICK_TO_DBL
(
GC_coll_etimes
[
g
]));
}
statsPrintf
(
"
\n
%11ld Mb total memory in use
\n\n
"
,
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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