[project @ 1999-09-22 11:53:33 by sof]

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

diff --git a/ghc/rts/Itimer.h b/ghc/rts/Itimer.h
index e415074..fbdf795 100644 (file)
--- a/ghc/rts/Itimer.h
+++ b/ghc/rts/Itimer.h
@@ -1,15 +1,18 @@
 /* -----------------------------------------------------------------------------
- * $Id: Itimer.h,v 1.2 1998/12/02 13:28:28 simonm Exp $
+ * $Id: Itimer.h,v 1.4 1999/08/25 16:11:48 simonmar Exp $
  *
- * (c) The GHC Team 1998
+ * (c) The GHC Team 1998-1999
  *
  * Interval timer for profiling and pre-emptive scheduling.
  *
  * ---------------------------------------------------------------------------*/
 
+# 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 (*handler)(int) );
+int  install_vtalrm_handler    ( void );
 void block_vtalrm_signal       ( void );
 void unblock_vtalrm_signal     ( void );
-
-