[project @ 1998-03-16 20:44:21 by sof]

Alloc rate printing fix; was outputting MUT time

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);