diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-09-16 13:38:14 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-09-16 13:38:14 +0100 |
| commit | d60c977e7d92a11a1750cea8693fd386d3a7104e (patch) | |
| tree | 73bf24d8d8b95424f8df087f0ba6b37ccc4db68d | |
| parent | 4f2d8fd6c3ea186541fa2ddbe99f2167c83c0b0b (diff) | |
| download | haskell-d60c977e7d92a11a1750cea8693fd386d3a7104e.tar.gz | |
debugging code
| -rw-r--r-- | rts/Proftimer.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/rts/Proftimer.c b/rts/Proftimer.c index dfcc709625..82838184b7 100644 --- a/rts/Proftimer.c +++ b/rts/Proftimer.c @@ -65,11 +65,13 @@ initProfTimer( void ) startHeapProfTimer(); } +nat total_ticks = 0; void handleProfTick(void) { #ifdef PROFILING + total_ticks++; if (do_prof_ticks) { CCCS->time_ticks++; } |