From 0d88de0b114a391712bc117d42928b49fba4d66a Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 24 Aug 2007 09:55:32 +0000 Subject: [PATCH] fix +RTS -V0 when not using -threaded --- rts/posix/Itimer.c | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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)); } -- 1.7.10.4