X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FItimer.h;h=fbdf795c8bffed1b22ba270c6688a4d229d8d94b;hb=f9716798d9e26277685851750995c978846e523c;hp=0876e8445353ad21fbf99a65265c067e93f25c96;hpb=7f309f1c021e7583f724cce599ce2dd3c439361b;p=ghc-hetmet.git diff --git a/ghc/rts/Itimer.h b/ghc/rts/Itimer.h index 0876e84..fbdf795 100644 --- a/ghc/rts/Itimer.h +++ b/ghc/rts/Itimer.h @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: Itimer.h,v 1.3 1999/02/05 16:02:44 simonm Exp $ + * $Id: Itimer.h,v 1.4 1999/08/25 16:11:48 simonmar Exp $ * * (c) The GHC Team 1998-1999 * @@ -7,9 +7,12 @@ * * ---------------------------------------------------------------------------*/ +# define TICK_FREQUENCY 50 /* ticks per second */ +# define TICK_MILLISECS (1000/TICK_FREQUENCY) /* ms per tick */ + +extern rtsBool do_prof_ticks; /* profiling ticks on/off */ + nat initialize_virtual_timer ( nat ms ); -int install_vtalrm_handler ( void (*handler)(int) ); +int install_vtalrm_handler ( void ); void block_vtalrm_signal ( void ); void unblock_vtalrm_signal ( void ); - -