new RTS flag: -V to modify the resolution of the RTS timer

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

diff --git a/rts/Timer.h b/rts/Timer.h
index ae26653..1fe857d 100644 (file)
--- a/rts/Timer.h
+++ b/rts/Timer.h
@@ -1,6 +1,6 @@
 /* -----------------------------------------------------------------------------
  *
- * (c) The GHC Team, 1995-2005
+ * (c) The GHC Team, 1995-2006
  *
  * Interval timer service for profiling and pre-emptive scheduling.
  *
@@ -9,16 +9,9 @@
 #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 startTimer(void);
 extern int stopTimer(void);
 
 #endif /* TIMER_H */