From 58f09f984bd5549026364d8110cd56b7b358f64b Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Wed, 3 Sep 1997 23:38:36 +0000
Subject: [PATCH] [project @ 1997-09-03 23:38:36 by sof] always return
non-negative floats from elapsedtime()
---
ghc/runtime/storage/SMstats.lc | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ghc/runtime/storage/SMstats.lc b/ghc/runtime/storage/SMstats.lc
index 74d5d92b36f4..b10db260f477 100644
--- a/ghc/runtime/storage/SMstats.lc
+++ b/ghc/runtime/storage/SMstats.lc
@@ -177,7 +177,7 @@ elapsedtime()
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 */
--
GitLab