From: uid245 <unknown>
Date: Thu, 9 Oct 1997 09:33:07 +0000 (+0000)
Subject: [project @ 1997-10-09 09:33:07 by uid245]
X-Git-Tag: Approx_2487_patches~1406
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=fd40a16a694cc7d17703384f4b2304e8fcc78e4a;p=ghc-hetmet.git

[project @ 1997-10-09 09:33:07 by uid245]
avoid another divide by zero.
---

diff --git a/ghc/runtime/storage/SMstats.lc b/ghc/runtime/storage/SMstats.lc
index f67c4e7..90349dc 100644
--- a/ghc/runtime/storage/SMstats.lc
+++ b/ghc/runtime/storage/SMstats.lc
@@ -517,7 +517,12 @@ stat_exit(I_ alloc)
 	fprintf(sf, "  %%GC time     %5.1f%%  (%.1f%% elapsed)\n\n",
 		GC_tot_time*100./time, GCe_tot_time*100./etime);
 
-	ullong_format_string((ullong)(GC_tot_alloc*sizeof(W_)/(time - GC_tot_time)), temp, rtsTrue/*commas*/);
+	if (time - GC_tot_time == 0.0)
+		ullong_format_string((ullong)0, temp, rtsTrue/*commas*/);
+	else
+		ullong_format_string((ullong)
+			(time - GC_tot_time)), temp, rtsTrue/*commas*/);
+
 	fprintf(sf, "  Alloc rate    %s bytes per MUT second\n\n", temp);
 
 	fprintf(sf, "  Productivity %5.1f%% of total user, %.1f%% of total elapsed\n\n",