blob: 3b499152d66b768e682ec7b8947e07b5d6438720 (
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
|
/* -----------------------------------------------------------------------------
*
* (c) The GHC Team, 1998-1999
*
* Profiling interval timer
*
* ---------------------------------------------------------------------------*/
#if defined (PROFILING)
#include "PosixSource.h"
#include "Rts.h"
#include "Profiling.h"
#include "Timer.h"
#include "Proftimer.h"
#include "RtsFlags.h"
static rtsBool do_prof_ticks = rtsFalse; // enable profiling ticks
static rtsBool do_heap_prof_ticks = rtsFalse; // 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
rtsBool performHeapProfile;
void
stopProfTimer( void )
{
do_prof_ticks = rtsFalse;
}
void
startProfTimer( void )
{
do_prof_ticks = rtsTrue;
}
void
stopHeapProfTimer( void )
{
do_heap_prof_ticks = rtsFalse;
}
void
startHeapProfTimer( void )
{
if (RtsFlags.ProfFlags.doHeapProfile &&
RtsFlags.ProfFlags.profileIntervalTicks > 0) {
do_heap_prof_ticks = rtsTrue;
}
}
void
initProfTimer( void )
{
performHeapProfile = rtsFalse;
RtsFlags.ProfFlags.profileIntervalTicks =
RtsFlags.ProfFlags.profileInterval / TICK_MILLISECS;
ticks_to_heap_profile = RtsFlags.ProfFlags.profileIntervalTicks;
startHeapProfTimer();
}
void
handleProfTick(void)
{
if (do_prof_ticks) {
CCCS->time_ticks++;
}
if (do_heap_prof_ticks) {
ticks_to_heap_profile--;
if (ticks_to_heap_profile <= 0) {
ticks_to_heap_profile = RtsFlags.ProfFlags.profileIntervalTicks;
performHeapProfile = rtsTrue;
}
}
}
#endif /* PROFILING */
|
