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

diff --git a/ghc/rts/Itimer.h b/ghc/rts/Itimer.h
index 58f4152..222baf5 100644
--- a/ghc/rts/Itimer.h
+++ b/ghc/rts/Itimer.h
@@ -1,19 +1,20 @@
 /* -----------------------------------------------------------------------------
- * $Id: Itimer.h,v 1.5 2000/03/20 09:42:49 andy Exp $
  *
- * (c) The GHC Team 1998-1999
+ * (c) The GHC Team 1998-2001
  *
  * Interval timer for profiling and pre-emptive scheduling.
  *
  * ---------------------------------------------------------------------------*/
+#ifndef __ITIMER_H__
+#define __ITIMER_H__
 
-# define TICK_FREQUENCY   50                      /* ticks per second */
-# define TICK_MILLISECS   (1000/TICK_FREQUENCY)   /* ms per tick */
+extern int startTicker( nat ms, TickProc handle_tick);
+extern int stopTicker ( void );
 
-extern rtsBool do_prof_ticks;	/* profiling ticks on/off */
-
-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__ */