X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2Fposix%2FItimer.c;h=0f0b1e977ee769df23979e09527260e8f15c131f;hp=83ed84d6ef02787d171a0131e0a7fff50d2b366f;hb=93db1991b5cacf8357493a2e17fbbfb485f3205b;hpb=c18587da71e16b581c293baee8d4af119b108da7

diff --git a/rts/posix/Itimer.c b/rts/posix/Itimer.c
index 83ed84d..0f0b1e9 100644
--- a/rts/posix/Itimer.c
+++ b/rts/posix/Itimer.c
@@ -221,6 +221,6 @@ getourtimeofday(void)
   struct timeval tv;
   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 * TICK_FREQUENCY +
-	  (lnat)tv.tv_usec * TICK_FREQUENCY / 1000000);
+  return ((lnat)tv.tv_sec * 1000 / RtsFlags.MiscFlags.tickInterval +
+	  (lnat)tv.tv_usec / (RtsFlags.MiscFlags.tickInterval * 1000));
 }