[project @ 2001-11-13 13:38:02 by simonmar]

Remove unused ticks_since_timestamp.

diff --git a/ghc/rts/Itimer.c b/ghc/rts/Itimer.c
index 1d63adf..c51de4f 100644 (file)
--- a/ghc/rts/Itimer.c
+++ b/ghc/rts/Itimer.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Itimer.c,v 1.23 2001/08/14 13:40:09 sewardj Exp $
+ * $Id: Itimer.c,v 1.24 2001/11/13 13:38:02 simonmar Exp $
  *
  * (c) The GHC Team, 1995-1999
  *
@@ -74,11 +74,6 @@ handle_tick(int unused STG_UNUSED)
   handleProfTick();
 #endif
 
-  /* so we can get a rough indication of the current time at any point
-   * without having to call gettimeofday() (see Select.c):
-   */
-  ticks_since_timestamp++;
-
   if (RtsFlags.ConcFlags.ctxtSwitchTicks > 0) {
       ticks_to_ctxt_switch--;
       if (ticks_to_ctxt_switch <= 0) {
@@ -147,7 +142,6 @@ initialize_virtual_timer(nat ms)
     struct itimerval it;
 
     timestamp = getourtimeofday();
-    ticks_since_timestamp = 0;
 
     it.it_value.tv_sec = ms / 1000;
     it.it_value.tv_usec = 1000 * (ms - (1000 * it.it_value.tv_sec));
@@ -168,7 +162,6 @@ initialize_virtual_timer(nat ms)
     timer_t tid;
 
     timestamp = getourtimeofday();
-    ticks_since_timestamp = 0;
 
     se.sigev_notify = SIGEV_SIGNAL;
     se.sigev_signo = SIGVTALRM;

diff --git a/ghc/rts/Schedule.h b/ghc/rts/Schedule.h
index 71e84ce..f8976eb 100644 (file)
--- a/ghc/rts/Schedule.h
+++ b/ghc/rts/Schedule.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Schedule.h,v 1.23 2001/11/08 12:46:31 simonmar Exp $
+ * $Id: Schedule.h,v 1.24 2001/11/13 13:38:02 simonmar Exp $
  *
  * (c) The GHC Team 1998-1999
  *
@@ -122,7 +122,6 @@ extern rtsBool interrupted;
 
 /* In Select.c */
 extern nat timestamp;
-extern nat ticks_since_timestamp;
 
 /* Free capability list.
  * Locks required: sched_mutex.

diff --git a/ghc/rts/Select.c b/ghc/rts/Select.c
index a004c89..0408772 100644 (file)
--- a/ghc/rts/Select.c
+++ b/ghc/rts/Select.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Select.c,v 1.18 2001/10/31 10:34:29 simonmar Exp $
+ * $Id: Select.c,v 1.19 2001/11/13 13:38:02 simonmar Exp $
  *
  * (c) The GHC Team 1995-1999
  *
@@ -32,12 +32,6 @@
 /* last timestamp */
 nat timestamp = 0;
 
-/* keep track of the number of ticks since we last called
- * gettimeofday(), to avoid having to call it every time we need
- * a timestamp.
- */
-nat ticks_since_timestamp = 0;
-
 /* There's a clever trick here to avoid problems when the time wraps
  * around.  Since our maximum delay is smaller than 31 bits of ticks
  * (it's actually 31 bits of microseconds), we can safely check
@@ -114,7 +108,6 @@ awaitEvent(rtsBool wait)
     do {
 
       ticks = timestamp = getourtimeofday();
-      ticks_since_timestamp = 0;
       if (wakeUpSleepingThreads(ticks)) { 
          return;
       }