[project @ 2005-03-10 14:03:28 by simonmar]

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

diff --git a/ghc/rts/Itimer.h b/ghc/rts/Itimer.h
index e415074..47fbbb6 100644 (file)
--- a/ghc/rts/Itimer.h
+++ b/ghc/rts/Itimer.h
@@ -1,15 +1,20 @@
 /* -----------------------------------------------------------------------------
- * $Id: Itimer.h,v 1.2 1998/12/02 13:28:28 simonm Exp $
  *
- * (c) The GHC Team 1998
+ * (c) The GHC Team 1998-2001
  *
  * Interval timer for profiling and pre-emptive scheduling.
  *
  * ---------------------------------------------------------------------------*/
+#ifndef __ITIMER_H__
+#define __ITIMER_H__
 
-nat  initialize_virtual_timer  ( nat ms );
-int  install_vtalrm_handler    ( void (*handler)(int) );
-void block_vtalrm_signal       ( void );
-void unblock_vtalrm_signal     ( void );
-
+extern int startTicker( nat ms, TickProc handle_tick);
+extern int stopTicker ( void );
 
+extern nat getourtimeofday   ( void );
+#if 0
+/* unused */
+extern void block_vtalrm_signal       ( void );
+extern void unblock_vtalrm_signal     ( void );
+#endif
+#endif /* __ITIMER_H__ */