diff options
| author | Ben Gamari <bgamari.foss@gmail.com> | 2015-11-18 12:22:02 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-11-18 12:53:50 +0100 |
| commit | 6b3d5b5990b9b306e13575e60d7e1c8ce264b0ef (patch) | |
| tree | 3d7ac58f233767e78de8eec6bde7f81ec46f6485 /rts/sm/GC.c | |
| parent | f9e17fd70d466fc00825f7324c944609f5c09251 (diff) | |
| download | haskell-6b3d5b5990b9b306e13575e60d7e1c8ce264b0ef.tar.gz | |
rts: Kill PAPI support
This hasn't been used for a very long time and will soon be superceded
by perf_events support.
Test Plan: validate
Reviewers: austin, simonmar
Reviewed By: austin, simonmar
Subscribers: thomie, erikd
Differential Revision: https://phabricator.haskell.org/D1493
Diffstat (limited to 'rts/sm/GC.c')
| -rw-r--r-- | rts/sm/GC.c | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/rts/sm/GC.c b/rts/sm/GC.c index e6a23395eb..95d995144c 100644 --- a/rts/sm/GC.c +++ b/rts/sm/GC.c @@ -45,7 +45,6 @@ #include "RetainerProfile.h" #include "LdvProfile.h" #include "RaiseAsync.h" -#include "Papi.h" #include "Stable.h" #include "CheckUnload.h" @@ -792,10 +791,6 @@ new_gc_thread (nat n, gc_thread *t) init_gc_thread(t); -#ifdef USE_PAPI - t->papi_events = -1; -#endif - for (g = 0; g < RtsFlags.GcFlags.generations; g++) { ws = &t->gens[g]; @@ -1028,14 +1023,6 @@ gcWorkerThread (Capability *cap) debugTrace(DEBUG_gc, "GC thread %d standing by...", gct->thread_index); ACQUIRE_SPIN_LOCK(&gct->gc_spin); -#ifdef USE_PAPI - // start performance counters in this thread... - if (gct->papi_events == -1) { - papi_init_eventset(&gct->papi_events); - } - papi_thread_start_gc1_count(gct->papi_events); -#endif - init_gc_thread(gct); traceEventGcWork(gct->cap); @@ -1057,11 +1044,6 @@ gcWorkerThread (Capability *cap) pruneSparkQueue(cap); #endif -#ifdef USE_PAPI - // count events in this thread towards the GC totals - papi_thread_stop_gc1_count(gct->papi_events); -#endif - // Wait until we're told to continue RELEASE_SPIN_LOCK(&gct->gc_spin); gct->wakeup = GC_THREAD_WAITING_TO_CONTINUE; |