X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FItimer.h;h=3e41e49a7b95f63279263affa22a244c77d9ad0e;hb=042f30fe101324186002581902ea2989345c62c5;hp=fbdf795c8bffed1b22ba270c6688a4d229d8d94b;hpb=c6ab4bfa09886be3bfff4aa747af2f1c8e348a1f;p=ghc-hetmet.git

diff --git a/ghc/rts/Itimer.h b/ghc/rts/Itimer.h
index fbdf795..3e41e49 100644
--- a/ghc/rts/Itimer.h
+++ b/ghc/rts/Itimer.h
@@ -1,7 +1,7 @@
 /* -----------------------------------------------------------------------------
- * $Id: Itimer.h,v 1.4 1999/08/25 16:11:48 simonmar Exp $
+ * $Id: Itimer.h,v 1.10 2001/11/27 01:51:23 sof Exp $
  *
- * (c) The GHC Team 1998-1999
+ * (c) The GHC Team 1998-2001
  *
  * Interval timer for profiling and pre-emptive scheduling.
  *
@@ -10,9 +10,13 @@
 # define TICK_FREQUENCY   50                      /* ticks per second */
 # define TICK_MILLISECS   (1000/TICK_FREQUENCY)   /* ms per tick */
 
-extern rtsBool do_prof_ticks;	/* profiling ticks on/off */
-
-nat  initialize_virtual_timer  ( nat ms );
-int  install_vtalrm_handler    ( void );
+/* 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 */
+ 
+int  startVirtTimer( nat ms );
+int  stopVirtTimer ( void );
 void block_vtalrm_signal       ( void );
 void unblock_vtalrm_signal     ( void );
+unsigned int getourtimeofday   ( void );