X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FTimer.h;h=ae26653462b82006b3a0e33a308384175d1c122e;hb=3034a6c8cfb50e2b5af4ef57c419986039b53a94;hp=1c4696e25c2ba07562a62aeb581d22cbcd802473;hpb=ff54eadfb873ca938ea16b3861e751cba499c34d;p=ghc-hetmet.git diff --git a/ghc/rts/Timer.h b/ghc/rts/Timer.h index 1c4696e..ae26653 100644 --- a/ghc/rts/Timer.h +++ b/ghc/rts/Timer.h @@ -1,14 +1,14 @@ /* ----------------------------------------------------------------------------- * - * (c) The GHC Team, 1995-2003 + * (c) The GHC Team, 1995-2005 * * Interval timer service for profiling and pre-emptive scheduling. * * ---------------------------------------------------------------------------*/ -#ifndef __TIMER_H__ -#define __TIMER_H__ -# define TICK_FREQUENCY 50 /* ticks per second */ +#ifndef TIMER_H +#define TIMER_H + # define TICK_MILLISECS (1000/TICK_FREQUENCY) /* ms per tick */ /* Context switch timing constants. Context switches happen after a @@ -20,4 +20,5 @@ typedef void (*TickProc)(int); extern int startTimer(nat ms); extern int stopTimer(void); -#endif /* __TIMER_H__ */ + +#endif /* TIMER_H */