/* -----------------------------------------------------------------------------
*
- * (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
extern int startTimer(nat ms);
extern int stopTimer(void);
-#endif /* __TIMER_H__ */
+
+#endif /* TIMER_H */