blob: 68a73a54464024d9e6cc2d05a06399e5b1ba5f2d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
/* -----------------------------------------------------------------------------
*
* (c) The GHC Team, 1998-1999
*
* Profiling interval timer
*
* ---------------------------------------------------------------------------*/
#include "PosixSource.h"
#include "Rts.h"
#include "Profiling.h"
#include "Proftimer.h"
#include "Capability.h"
#include "Trace.h"
#if defined(PROFILING)
static bool do_prof_ticks = false; // enable profiling ticks
#endif
static bool do_heap_prof_ticks = false; // enable heap profiling ticks
// Number of ticks until next heap census
static int ticks_to_heap_profile;
// Time for a heap profile on the next context switch
bool performHeapProfile;
void
stopProfTimer( void )
{
#if defined(PROFILING)
do_prof_ticks = false;
#endif
}
void
startProfTimer( void )
{
#if defined(PROFILING)
do_prof_ticks = true;
#endif
}
void
stopHeapProfTimer( void )
{
do_heap_prof_ticks = false;
}
void
startHeapProfTimer( void )
{
if (RtsFlags.ProfFlags.doHeapProfile &&
RtsFlags.ProfFlags.heapProfileIntervalTicks > 0) {
do_heap_prof_ticks = true;
}
}
void
initProfTimer( void )
{
performHeapProfile = false;
ticks_to_heap_profile = RtsFlags.ProfFlags.heapProfileIntervalTicks;
startHeapProfTimer();
}
uint32_t total_ticks = 0;
void
handleProfTick(void)
{
#if defined(PROFILING)
total_ticks++;
if (do_prof_ticks) {
uint32_t n;
for (n=0; n < n_capabilities; n++) {
capabilities[n]->r.rCCCS->time_ticks++;
traceProfSampleCostCentre(capabilities[n], capabilities[n]->r.rCCCS, total_ticks);
}
}
#endif
if (do_heap_prof_ticks) {
ticks_to_heap_profile--;
if (ticks_to_heap_profile <= 0) {
ticks_to_heap_profile = RtsFlags.ProfFlags.heapProfileIntervalTicks;
performHeapProfile = true;
}
}
}
|
