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 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 */
-- 
1.7.10.4