Skip to content
GitLab
Menu
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
b5929f6f
Commit
b5929f6f
authored
Jun 03, 2008
by
Simon Marlow
Browse files
move the spinlock counts inside +RTS -S
parent
5b726bda
Changes
1
Hide whitespace changes
Inline
Side-by-side
rts/Stats.c
View file @
b5929f6f
...
@@ -692,6 +692,21 @@ stat_exit(int alloc)
...
@@ -692,6 +692,21 @@ stat_exit(int alloc)
#if USE_PAPI
#if USE_PAPI
papi_stats_report
();
papi_stats_report
();
#endif
#if defined(THREADED_RTS) && defined(PROF_SPIN)
{
nat
g
,
s
;
statsPrintf
(
"recordMutableGen_sync: %"
FMT_Word64
"
\n
"
,
recordMutableGen_sync
.
spin
);
statsPrintf
(
"gc_alloc_block_sync: %"
FMT_Word64
"
\n
"
,
gc_alloc_block_sync
.
spin
);
statsPrintf
(
"whitehole_spin: %"
FMT_Word64
"
\n
"
,
whitehole_spin
);
for
(
g
=
0
;
g
<
RtsFlags
.
GcFlags
.
generations
;
g
++
)
{
for
(
s
=
0
;
s
<
generations
[
g
].
n_steps
;
s
++
)
{
statsPrintf
(
"gen[%d].steps[%d].sync_todo: %"
FMT_Word64
"
\n
"
,
g
,
s
,
generations
[
g
].
steps
[
s
].
sync_todo
.
spin
);
statsPrintf
(
"gen[%d].steps[%d].sync_large_objects: %"
FMT_Word64
"
\n
"
,
g
,
s
,
generations
[
g
].
steps
[
s
].
sync_large_objects
.
spin
);
}
}
}
#endif
#endif
}
}
...
@@ -710,22 +725,6 @@ stat_exit(int alloc)
...
@@ -710,22 +725,6 @@ stat_exit(int alloc)
TICK_TO_DBL
(
GC_tot_time
),
TICK_TO_DBL
(
GCe_tot_time
));
TICK_TO_DBL
(
GC_tot_time
),
TICK_TO_DBL
(
GCe_tot_time
));
}
}
#if defined(THREADED_RTS) && defined(PROF_SPIN)
{
nat
g
,
s
;
statsPrintf
(
"recordMutableGen_sync: %"
FMT_Word64
"
\n
"
,
recordMutableGen_sync
.
spin
);
statsPrintf
(
"gc_alloc_block_sync: %"
FMT_Word64
"
\n
"
,
gc_alloc_block_sync
.
spin
);
statsPrintf
(
"whitehole_spin: %"
FMT_Word64
"
\n
"
,
whitehole_spin
);
for
(
g
=
0
;
g
<
RtsFlags
.
GcFlags
.
generations
;
g
++
)
{
for
(
s
=
0
;
s
<
generations
[
g
].
n_steps
;
s
++
)
{
statsPrintf
(
"gen[%d].steps[%d].sync_todo: %"
FMT_Word64
"
\n
"
,
g
,
s
,
generations
[
g
].
steps
[
s
].
sync_todo
.
spin
);
statsPrintf
(
"gen[%d].steps[%d].sync_large_objects: %"
FMT_Word64
"
\n
"
,
g
,
s
,
generations
[
g
].
steps
[
s
].
sync_large_objects
.
spin
);
}
}
}
#endif
statsFlush
();
statsFlush
();
statsClose
();
statsClose
();
}
}
...
...
Write
Preview
Supports
Markdown
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