Add SA_RESTART flag to the timer signal handler.

[ghc-hetmet.git] / ghc / rts / Timer.h

diff --git a/ghc/rts/Timer.h b/ghc/rts/Timer.h
index e13570f..ae26653 100644 (file)
--- 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 */