X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FTimer.h;h=ae26653462b82006b3a0e33a308384175d1c122e;hb=7f24ae51ed36c5c0308a2d0de23e243f32a0043c;hp=e13570fa117ed6e2a7d2e396019b74b80a5d8c35;hpb=557947d3f93e11285e36423ddb08d859af60ab47;p=ghc-hetmet.git

diff --git a/ghc/rts/Timer.h b/ghc/rts/Timer.h
index e13570f..ae26653 100644
--- a/ghc/rts/Timer.h
+++ b/ghc/rts/Timer.h
@@ -1,14 +1,14 @@
 /* -----------------------------------------------------------------------------
  *
- * (c) The GHC Team, 1995-2003
+ * (c) The GHC Team, 1995-2005
  *
  * Interval timer service for profiling and pre-emptive scheduling.
  *
  * ---------------------------------------------------------------------------*/
-#ifndef __TIMER_H__
-#define __TIMER_H__
 
-# define TICK_FREQUENCY   50                      /* ticks per second */
+#ifndef TIMER_H
+#define TIMER_H
+
 # define TICK_MILLISECS   (1000/TICK_FREQUENCY)   /* ms per tick */
 
 /* Context switch timing constants. Context switches happen after a
@@ -16,7 +16,9 @@
  */
 #define CS_MIN_MILLISECS TICK_MILLISECS       /* milliseconds per slice */
 
-extern void handle_tick(int unused);
+typedef void (*TickProc)(int);
+
 extern int startTimer(nat ms);
 extern int stopTimer(void);
-#endif /* __TIMER_H__ */
+
+#endif /* TIMER_H */