X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fposix%2FItimer.c;fp=rts%2Fposix%2FItimer.c;h=df95f21b924433b9f902f529955148d28ca7c135;hb=0d88de0b114a391712bc117d42928b49fba4d66a;hp=c4944aa8a081f7e15a15617e4a0b61334bf07b13;hpb=229fa59a85aa087900a07cdcc7200164db84f79b;p=ghc-hetmet.git

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));
 }