fix +RTS -V0 when not using -threaded
authorSimon Marlow <simonmar@microsoft.com>
Fri, 24 Aug 2007 09:55:32 +0000 (09:55 +0000)
committerSimon Marlow <simonmar@microsoft.com>
Fri, 24 Aug 2007 09:55:32 +0000 (09:55 +0000)
rts/posix/Itimer.c

index c4944aa..df95f21 100644 (file)
@@ -233,8 +233,11 @@ lnat
 getourtimeofday(void)
 {
   struct timeval tv;
+  nat interval;
+  interval = RtsFlags.MiscFlags.tickInterval;
+  if (interval == 0) { interval = 50; }
   gettimeofday(&tv, (struct timezone *) NULL);
        // cast to lnat because nat may be 64 bit when int is only 32 bit
-  return ((lnat)tv.tv_sec * 1000 / RtsFlags.MiscFlags.tickInterval +
-         (lnat)tv.tv_usec / (RtsFlags.MiscFlags.tickInterval * 1000));
+  return ((lnat)tv.tv_sec * 1000 / interval +
+         (lnat)tv.tv_usec / (interval * 1000));
 }