X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FItimer.h;h=adfe12a397677f0d193e2c66489befad75eb3c26;hb=9e6162f9d0102d1f5738bf78258b24ea5a647ea4;hp=fbdf795c8bffed1b22ba270c6688a4d229d8d94b;hpb=c6ab4bfa09886be3bfff4aa747af2f1c8e348a1f;p=ghc-hetmet.git diff --git a/ghc/rts/Itimer.h b/ghc/rts/Itimer.h index fbdf795..adfe12a 100644 --- a/ghc/rts/Itimer.h +++ b/ghc/rts/Itimer.h @@ -1,18 +1,21 @@ /* ----------------------------------------------------------------------------- - * $Id: Itimer.h,v 1.4 1999/08/25 16:11:48 simonmar Exp $ + * $Id: Itimer.h,v 1.13 2003/03/29 00:27:11 sof 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 ); +extern unsigned int getourtimeofday ( void ); +#if 0 +/* unused */ +extern void block_vtalrm_signal ( void ); +extern void unblock_vtalrm_signal ( void ); +#endif +#endif /* __ITIMER_H__ */