From: sof <unknown>
Date: Mon, 16 Mar 1998 20:44:21 +0000 (+0000)
Subject: [project @ 1998-03-16 20:44:21 by sof]
X-Git-Tag: Approx_2487_patches~855
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=24f3255806d020ca642a1c6c2fa9b8afa33ce32c;p=ghc-hetmet.git

[project @ 1998-03-16 20:44:21 by sof]
Alloc rate printing fix; was outputting MUT time
---

diff --git a/ghc/runtime/storage/SMstats.lc b/ghc/runtime/storage/SMstats.lc
index eac2cfe..8082a63 100644
--- a/ghc/runtime/storage/SMstats.lc
+++ b/ghc/runtime/storage/SMstats.lc
@@ -520,7 +520,7 @@ stat_exit(I_ alloc)
 	if (time - GC_tot_time == 0.0)
 		ullong_format_string((ullong)0, temp, rtsTrue/*commas*/);
 	else
-		ullong_format_string((ullong)(time - GC_tot_time),
+		ullong_format_string((ullong)(GC_tot_alloc*sizeof(W_)/(time - GC_tot_time)),
 			 temp, rtsTrue/*commas*/);
 
 	fprintf(sf, "  Alloc rate    %s bytes per MUT second\n\n", temp);