[project @ 2002-11-08 15:16:50 by simonpj]

[ghc-hetmet.git] / ghc / rts / Itimer.c

diff --git a/ghc/rts/Itimer.c b/ghc/rts/Itimer.c
index 4b3bd0b..bbc8738 100644 (file)
--- a/ghc/rts/Itimer.c
+++ b/ghc/rts/Itimer.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Itimer.c,v 1.28 2001/11/27 01:51:23 sof Exp $
+ * $Id: Itimer.c,v 1.31 2002/08/16 13:29:06 simonmar Exp $
  *
  * (c) The GHC Team, 1995-1999
  *
@@ -43,10 +43,14 @@
 # include <windows.h>
 #endif
  
-lnat total_ticks = 0;
+#ifdef HAVE_SIGNAL_H
+# include <signal.h>
+#endif
+
+static lnat total_ticks = 0;
 
 /* ticks left before next pre-emptive context switch */
-int ticks_to_ctxt_switch = 0;
+static int ticks_to_ctxt_switch = 0;
 
 /* -----------------------------------------------------------------------------
    Tick handler
@@ -178,7 +182,7 @@ startVirtTimer(nat ms)
 # else
     struct itimerval it;
 
-    install_vtalrm_handler(void)
+    install_vtalrm_handler();
 
     timestamp = getourtimeofday();