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

[project @ 1997-10-09 10:23:36 by simonm]
urk, extra parenthesis crept in.
---

diff --git a/ghc/runtime/storage/SMstats.lc b/ghc/runtime/storage/SMstats.lc
index 90349dc..eac2cfe 100644
--- a/ghc/runtime/storage/SMstats.lc
+++ b/ghc/runtime/storage/SMstats.lc
@@ -520,8 +520,8 @@ 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)), temp, rtsTrue/*commas*/);
+		ullong_format_string((ullong)(time - GC_tot_time),
+			 temp, rtsTrue/*commas*/);
 
 	fprintf(sf, "  Alloc rate    %s bytes per MUT second\n\n", temp);