X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FTicker.h;h=3e62622d5d5da9aa82dfbb57d5594b3c0e3a1fa1;hb=d2c874dc74e2d99eda70d83e9b540f54c45c2154;hp=b06890a049aec5e2d0f9bd0a062df12fa230c7a4;hpb=e30aca19def5c629a8429bd57e56535b7f8f85c8;p=ghc-hetmet.git

diff --git a/rts/Ticker.h b/rts/Ticker.h
index b06890a..3e62622 100644
--- a/rts/Ticker.h
+++ b/rts/Ticker.h
@@ -2,14 +2,22 @@
  *
  * (c) The GHC Team 2005
  *
- * Ticker interface (implementation is OS-specific)
+ * Interface to the OS-specific implementation of a regular time signal.
  *
  * ---------------------------------------------------------------------------*/
 
 #ifndef TICKER_H
 #define TICKER_H
 
-extern void startTicker( nat ms, TickProc handle_tick );
-extern void stopTicker ( void );
+BEGIN_RTS_PRIVATE
+
+typedef void (*TickProc)(int);
+
+void initTicker  (nat ms, TickProc handle_tick);
+void startTicker (void);
+void stopTicker  (void);
+void exitTicker  (void);
+
+END_RTS_PRIVATE
 
 #endif /* TICKER_H */