[project @ 1997-09-03 23:38:36 by sof]

[ghc-hetmet.git] / ghc / runtime / storage / SMstats.lc

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);
-    return t.time + 1e-3*t.millitm - ElapsedTimeStart;
+    return (fabs(t.time + 1e-3*t.millitm - ElapsedTimeStart));
 
 # endif /* HAVE_FTIME */
 #endif /* not stumped */