Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/73523d2f7e24937e8aa494200bcb65c1101bba99

>---------------------------------------------------------------

commit 73523d2f7e24937e8aa494200bcb65c1101bba99
Author: Edward Z. Yang <[email protected]>
Date:   Tue Jul 19 11:08:16 2011 -0400

    Rename avg_residency to less misleading cumulative_residency.
    
    Signed-off-by: Edward Z. Yang <[email protected]>

>---------------------------------------------------------------

 rts/Stats.c |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/rts/Stats.c b/rts/Stats.c
index cdb42a2..c071ec0 100644
--- a/rts/Stats.c
+++ b/rts/Stats.c
@@ -57,7 +57,7 @@ static Ticks HCe_start_time, HCe_tot_time = 0;   // heap 
census prof elap time
 #endif
 
 static lnat max_residency     = 0; // in words; for stats only
-static lnat avg_residency     = 0;
+static lnat cumulative_residency = 0;
 static lnat residency_samples = 0; // for stats only
 static lnat max_slop          = 0;
 
@@ -151,7 +151,7 @@ initStats0(void)
 #endif
 
     max_residency = 0;
-    avg_residency = 0;
+    cumulative_residency = 0;
     residency_samples = 0;
     max_slop = 0;
 
@@ -368,7 +368,7 @@ stat_endGC (gc_thread *gct,
                max_residency = live;
            }
            residency_samples++;
-           avg_residency += live;
+           cumulative_residency += live;
        }
 
         if (slop > max_slop) max_slop = slop;
@@ -745,7 +745,7 @@ stat_exit(int alloc)
          statsPrintf(fmt2,
                    total_collections,
                    residency_samples == 0 ? 0 : 
-                       avg_residency*sizeof(W_)/residency_samples, 
+                       cumulative_residency*sizeof(W_)/residency_samples, 
                    max_residency*sizeof(W_), 
                    residency_samples,
                    (unsigned long)(peak_mblocks_allocated * MBLOCK_SIZE / 
(1024L * 1024L)),



_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to