Don't Terminate the ticker thread (#3748)
[ghc.git] / rts / Timer.h
index ae26653..b03ef06 100644 (file)
@@ -1,24 +1,15 @@
 /* -----------------------------------------------------------------------------
  *
- * (c) The GHC Team, 1995-2005
+ * (c) The GHC Team, 1995-2006
  *
- * Interval timer service for profiling and pre-emptive scheduling.
+ * Interface to the RTS timer signal (uses OS-dependent Ticker.h underneath)
  *
  * ---------------------------------------------------------------------------*/
 
 #ifndef TIMER_H
 #define TIMER_H
 
-# define TICK_MILLISECS   (1000/TICK_FREQUENCY)   /* ms per tick */
-
-/* Context switch timing constants. Context switches happen after a
- * whole number of ticks, the default being every tick.
- */
-#define CS_MIN_MILLISECS TICK_MILLISECS       /* milliseconds per slice */
-
-typedef void (*TickProc)(int);
-
-extern int startTimer(nat ms);
-extern int stopTimer(void);
+RTS_PRIVATE void initTimer (void);
+RTS_PRIVATE void exitTimer (rtsBool wait);
 
 #endif /* TIMER_H */