From: sof <unknown>
Date: Wed, 3 Sep 1997 23:38:36 +0000 (+0000)
Subject: [project @ 1997-09-03 23:38:36 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~60
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=58f09f984bd5549026364d8110cd56b7b358f64b

[project @ 1997-09-03 23:38:36 by sof]
always return non-negative floats from elapsedtime()
---

diff --git a/ghc/runtime/storage/SMstats.lc b/ghc/runtime/storage/SMstats.lc
index 74d5d92..b10db26 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 */