[project @ 1998-12-02 13:17:09 by simonm]
[ghc-hetmet.git] / ghc / rts / Itimer.h
1 /* -----------------------------------------------------------------------------
2  * $Id: Itimer.h,v 1.2 1998/12/02 13:28:28 simonm Exp $
3  *
4  * (c) The GHC Team 1998
5  *
6  * Interval timer for profiling and pre-emptive scheduling.
7  *
8  * ---------------------------------------------------------------------------*/
9
10 nat  initialize_virtual_timer  ( nat ms );
11 int  install_vtalrm_handler    ( void (*handler)(int) );
12 void block_vtalrm_signal       ( void );
13 void unblock_vtalrm_signal     ( void );
14
15