/* -----------------------------------------------------------------------------
*
- * (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
*/
#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 */