From: Simon Marlow <simonmar@microsoft.com>
Date: Fri, 24 Aug 2007 09:55:32 +0000 (+0000)
Subject: fix +RTS -V0 when not using -threaded
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=0d88de0b114a391712bc117d42928b49fba4d66a

fix +RTS -V0 when not using -threaded
---

diff --git a/rts/posix/Itimer.c b/rts/posix/Itimer.c
index c4944aa..df95f21 100644
--- a/rts/posix/Itimer.c
+++ b/rts/posix/Itimer.c
@@ -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));
 }