[project @ 2005-10-21 14:38:18 by simonmar]
[ghc-hetmet.git] / ghc / rts / Itimer.h
index 257d274..af5c140 100644 (file)
@@ -1,24 +1,22 @@
 /* -----------------------------------------------------------------------------
- * $Id: Itimer.h,v 1.6 2000/08/03 11:28:35 simonmar Exp $
  *
- * (c) The GHC Team 1998-1999
+ * (c) The GHC Team 1998-2005
  *
  * Interval timer for profiling and pre-emptive scheduling.
  *
  * ---------------------------------------------------------------------------*/
 
-# define TICK_FREQUENCY   50                      /* ticks per second */
-# define TICK_MILLISECS   (1000/TICK_FREQUENCY)   /* ms per tick */
+#ifndef ITIMER_H
+#define ITIMER_H
 
-/* 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 */
-extern rtsBool do_prof_ticks;  /* profiling ticks on/off */
+extern int startTicker( nat ms, TickProc handle_tick);
+extern int stopTicker ( void );
 
-nat  initialize_virtual_timer  ( nat ms );
-int  install_vtalrm_handler    ( void );
-void block_vtalrm_signal       ( void );
-void unblock_vtalrm_signal     ( void );
-unsigned int getourtimeofday   ( void );
+extern lnat getourtimeofday   ( void );
+#if 0
+/* unused */
+extern void block_vtalrm_signal       ( void );
+extern void unblock_vtalrm_signal     ( void );
+#endif
+
+#endif /* ITIMER_H */