X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FItimer.h;h=adfe12a397677f0d193e2c66489befad75eb3c26;hb=9694f168f43d39c92a47d10564f620c657addb12;hp=3e41e49a7b95f63279263affa22a244c77d9ad0e;hpb=e30e0fb8ad554adfaf3806aa1a94551aa227af7f;p=ghc-hetmet.git

diff --git a/ghc/rts/Itimer.h b/ghc/rts/Itimer.h
index 3e41e49..adfe12a 100644
--- a/ghc/rts/Itimer.h
+++ b/ghc/rts/Itimer.h
@@ -1,22 +1,21 @@
 /* -----------------------------------------------------------------------------
- * $Id: Itimer.h,v 1.10 2001/11/27 01:51:23 sof Exp $
+ * $Id: Itimer.h,v 1.13 2003/03/29 00:27:11 sof Exp $
  *
  * (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 );
 
-/* 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 );
+extern unsigned int getourtimeofday   ( void );
+#if 0
+/* unused */
+extern void block_vtalrm_signal       ( void );
+extern void unblock_vtalrm_signal     ( void );
+#endif
+#endif /* __ITIMER_H__ */