projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
229fa59
)
fix +RTS -V0 when not using -threaded
author
Simon Marlow
<simonmar@microsoft.com>
Fri, 24 Aug 2007 09:55:32 +0000
(09:55 +0000)
committer
Simon Marlow
<simonmar@microsoft.com>
Fri, 24 Aug 2007 09:55:32 +0000
(09:55 +0000)
rts/posix/Itimer.c
patch
|
blob
|
history
diff --git
a/rts/posix/Itimer.c
b/rts/posix/Itimer.c
index
c4944aa
..
df95f21
100644
(file)
--- a/
rts/posix/Itimer.c
+++ b/
rts/posix/Itimer.c
@@
-233,8
+233,11
@@
lnat
getourtimeofday(void)
{
struct timeval tv;
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
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));
}
}