X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FItimer.h;h=2430ec1a3868d584748af059258c5030200bf583;hb=3eb89949b29137d1706b0412373fed775b9f05a1;hp=58f4152d408fcb0a2c4850b58718d70472a67457;hpb=90a6918a3cb4901ecc64d810a6a4eb54d572c0bf;p=ghc-hetmet.git

diff --git a/ghc/rts/Itimer.h b/ghc/rts/Itimer.h
index 58f4152..2430ec1 100644
--- a/ghc/rts/Itimer.h
+++ b/ghc/rts/Itimer.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Itimer.h,v 1.5 2000/03/20 09:42:49 andy Exp $
+ * $Id: Itimer.h,v 1.7 2000/08/25 13:12:07 simonmar Exp $
  *
  * (c) The GHC Team 1998-1999
  *
@@ -10,8 +10,16 @@
 # 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 */
 
+/* Total number of ticks since startup */
+extern lnat total_ticks;
+
 nat  initialize_virtual_timer  ( nat ms );
 int  install_vtalrm_handler    ( void );
 void block_vtalrm_signal       ( void );