[project @ 2001-11-26 16:54:21 by simonmar]

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

diff --git a/ghc/rts/Itimer.c b/ghc/rts/Itimer.c
index 2ec3ea9..98d8ddb 100644 (file)
--- a/ghc/rts/Itimer.c
+++ b/ghc/rts/Itimer.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Itimer.c,v 1.25 2001/11/21 20:55:10 sof Exp $
+ * $Id: Itimer.c,v 1.27 2001/11/26 12:58:17 simonpj Exp $
  *
  * (c) The GHC Team, 1995-1999
  *
@@ -142,6 +142,10 @@ initialize_virtual_timer(nat ms)
     }
   }
 
+#ifdef PROFILING
+  initProfTimer();
+#endif
+
   return 0;
 }
  
@@ -158,6 +162,10 @@ initialize_virtual_timer(nat ms)
 
     timestamp = getourtimeofday();
 
+#ifdef PROFILING
+    initProfTimer();
+#endif
+
     it.it_value.tv_sec = ms / 1000;
     it.it_value.tv_usec = 1000 * (ms - (1000 * it.it_value.tv_sec));
     it.it_interval = it.it_value;
@@ -178,6 +186,8 @@ initialize_virtual_timer(nat ms)
 
     timestamp = getourtimeofday();
 
+    initProfTimer();
+
     se.sigev_notify = SIGEV_SIGNAL;
     se.sigev_signo = SIGVTALRM;
     se.sigev_value.sival_int = SIGVTALRM;