[project @ 2001-11-05 05:12:55 by sof]

[ghc-hetmet.git] / ghc / rts / Stats.c

diff --git a/ghc/rts/Stats.c b/ghc/rts/Stats.c
index 47b050d..523622d 100644 (file)
--- a/ghc/rts/Stats.c
+++ b/ghc/rts/Stats.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Stats.c,v 1.33 2001/11/02 11:15:00 simonmar Exp $
+ * $Id: Stats.c,v 1.34 2001/11/05 05:12:55 sof Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -575,7 +575,7 @@ stat_exit(int alloc)
                    TICK_TO_DBL(time), TICK_TO_DBL(etime));
            fprintf(sf, "  %%GC time     %5.1f%%  (%.1f%% elapsed)\n\n",
                    TICK_TO_DBL(GC_tot_time)*100/TICK_TO_DBL(time),
-                   TICK_TO_DBL(GCe_tot_time)*100/TIC_TO_DBL(etime));
+                   TICK_TO_DBL(GCe_tot_time)*100/TICK_TO_DBL(etime));
 
            if (time - GC_tot_time == 0)
                ullong_format_string(0, temp, rtsTrue/*commas*/);