X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FItimer.h;h=257d2748e618cae5307e8455429ca80e2f340d41;hb=b86f4b95cb51d69a2537217132f675afa1e9519c;hp=0876e8445353ad21fbf99a65265c067e93f25c96;hpb=7f309f1c021e7583f724cce599ce2dd3c439361b;p=ghc-hetmet.git

diff --git a/ghc/rts/Itimer.h b/ghc/rts/Itimer.h
index 0876e84..257d274 100644
--- a/ghc/rts/Itimer.h
+++ b/ghc/rts/Itimer.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Itimer.h,v 1.3 1999/02/05 16:02:44 simonm Exp $
+ * $Id: Itimer.h,v 1.6 2000/08/03 11:28:35 simonmar Exp $
  *
  * (c) The GHC Team 1998-1999
  *
@@ -7,9 +7,18 @@
  *
  * ---------------------------------------------------------------------------*/
 
+# define TICK_FREQUENCY   50                      /* ticks per second */
+# 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 */
+ 
+extern rtsBool do_prof_ticks;	/* profiling ticks on/off */
+
 nat  initialize_virtual_timer  ( nat ms );
-int  install_vtalrm_handler    ( void (*handler)(int) );
+int  install_vtalrm_handler    ( void );
 void block_vtalrm_signal       ( void );
 void unblock_vtalrm_signal     ( void );
-
-
+unsigned int getourtimeofday   ( void );