X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FStats.c;h=1127b81566632a8a9f39993be949f71f6b3770f8;hb=a84385fa752d8fa800a2155cce95f47c68b74e2b;hp=1b0abaa4e46cdde8b1ac8f074c8c8dc543af0275;hpb=bf4d6a58a1079b944ffc4bdd41d57403a7727046;p=ghc-hetmet.git

diff --git a/rts/Stats.c b/rts/Stats.c
index 1b0abaa..1127b81 100644
--- a/rts/Stats.c
+++ b/rts/Stats.c
@@ -171,8 +171,6 @@ stat_endInit(void)
 	InitElapsedTime = elapsed - ElapsedTimeStart;
     }
 #if USE_PAPI
-    papi_init_eventsets();
-
     /* We start counting events for the mutator
      * when garbage collection starts
      * we switch to the GC event set. */
@@ -606,16 +604,7 @@ stat_exit(int alloc)
             */
 
 #if USE_PAPI
-	    /* PAPI reporting, should put somewhere else?
-	     * Note that the cycles are counted _after_ the initialization of the RTS -- AR */
-
-	    statsPrintf("  -- CPU Mutator counters --\n");
-	    papi_mut_cycles();
-	    papi_report(MutatorCounters);
-
-	    statsPrintf("\n  -- CPU GC counters --\n");
-	    papi_gc_cycles();
-	    papi_report(GCCounters);
+            papi_stats_report();
 #endif
 	}