rts_stop_on_exception is a C int, not a W_
[ghc-hetmet.git] / rts / Proftimer.c
1 /* -----------------------------------------------------------------------------
2  *
3  * (c) The GHC Team, 1998-1999
4  *
5  * Profiling interval timer
6  *
7  * ---------------------------------------------------------------------------*/
8
9 #include "PosixSource.h"
10
11 #include "Rts.h"
12 #include "Profiling.h"
13 #include "Timer.h"
14 #include "Proftimer.h"
15 #include "RtsFlags.h"
16
17 static rtsBool do_prof_ticks = rtsFalse;       // enable profiling ticks
18 static rtsBool do_heap_prof_ticks = rtsFalse;  // enable heap profiling ticks
19
20 // Number of ticks until next heap census
21 static int ticks_to_heap_profile;
22
23 // Time for a heap profile on the next context switch
24 rtsBool performHeapProfile;
25
26 void
27 stopProfTimer( void )
28 {
29     do_prof_ticks = rtsFalse;
30 }
31
32 void
33 startProfTimer( void )
34 {
35     do_prof_ticks = rtsTrue;
36 }
37
38 void
39 stopHeapProfTimer( void )
40 {
41     do_heap_prof_ticks = rtsFalse;
42 }
43
44 void
45 startHeapProfTimer( void )
46 {
47     if (RtsFlags.ProfFlags.doHeapProfile && 
48         RtsFlags.ProfFlags.profileIntervalTicks > 0) {
49         do_heap_prof_ticks = rtsTrue;
50     }
51 }
52
53 void
54 initProfTimer( void )
55 {
56     performHeapProfile = rtsFalse;
57
58     ticks_to_heap_profile = RtsFlags.ProfFlags.profileIntervalTicks;
59
60     startHeapProfTimer();
61 }
62
63
64 void
65 handleProfTick(void)
66 {
67 #ifdef PROFILING
68     if (do_prof_ticks) {
69         CCCS->time_ticks++;
70     }
71 #endif
72
73     if (do_heap_prof_ticks) {
74         ticks_to_heap_profile--;
75         if (ticks_to_heap_profile <= 0) {
76             ticks_to_heap_profile = RtsFlags.ProfFlags.profileIntervalTicks;
77             performHeapProfile = rtsTrue;
78         }
79     }
80 }