[project @ 1997-10-09 10:23:36 by simonm]

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

diff --git a/ghc/runtime/storage/SMstats.lc b/ghc/runtime/storage/SMstats.lc
index 90349dc..eac2cfe 100644 (file)
--- 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);