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:
d8ee565
)
[project @ 1997-09-03 23:38:36 by sof]
author
sof
<unknown>
Wed, 3 Sep 1997 23:38:36 +0000
(23:38 +0000)
committer
sof
<unknown>
Wed, 3 Sep 1997 23:38:36 +0000
(23:38 +0000)
always return non-negative floats from elapsedtime()
ghc/runtime/storage/SMstats.lc
patch
|
blob
|
history
diff --git
a/ghc/runtime/storage/SMstats.lc
b/ghc/runtime/storage/SMstats.lc
index
74d5d92
..
b10db26
100644
(file)
--- a/
ghc/runtime/storage/SMstats.lc
+++ b/
ghc/runtime/storage/SMstats.lc
@@
-177,7
+177,7
@@
elapsedtime()
struct timeb t;
ftime(&t);
struct timeb t;
ftime(&t);
- return t.time + 1e-3*t.millitm - ElapsedTimeStart;
+ return (fabs(t.time + 1e-3*t.millitm - ElapsedTimeStart));
# endif /* HAVE_FTIME */
#endif /* not stumped */
# endif /* HAVE_FTIME */
#endif /* not stumped */