diff options
| -rw-r--r-- | rts/RtsProbes.d | 15 | ||||
| -rw-r--r-- | rts/Trace.h | 19 |
2 files changed, 7 insertions, 27 deletions
diff --git a/rts/RtsProbes.d b/rts/RtsProbes.d index 9be0e66a40..fd47b7574d 100644 --- a/rts/RtsProbes.d +++ b/rts/RtsProbes.d @@ -55,14 +55,13 @@ provider HaskellEvent { probe gc__idle (EventCapNo); probe gc__work (EventCapNo); probe gc__done (EventCapNo); - probe gc__sync (EventCapNo); -/* FIXME: leads to a validate failure on OS X (Lion) - probe gc__stats (CapsetID, StgWord, StgWord, StgWord, StgWord, StgWord, StgWord, StgWord); - probe heap__info (CapsetID, StgWord, StgWord, StgWord, StgWord, StgWord); - probe heap__allocated (EventCapNo, CapsetID, StgWord64); - probe heap__size (CapsetID, StgWord); - probe heap__live (CapsetID, StgWord); - */ + probe gc__global__sync (EventCapNo); + probe gc__stats (EventCapsetID, StgWord, StgWord, StgWord, StgWord, StgWord, StgWord, StgWord); + probe heap__info (EventCapsetID, StgWord, StgWord, StgWord, StgWord, StgWord); + probe heap__allocated (EventCapNo, EventCapsetID, StgWord64); + probe heap__size (EventCapsetID, StgWord); + probe heap__live (EventCapsetID, StgWord); + /* capability events */ probe startup (EventCapNo); probe cap__create (EventCapNo); diff --git a/rts/Trace.h b/rts/Trace.h index 6141003026..dcd00b8cc1 100644 --- a/rts/Trace.h +++ b/rts/Trace.h @@ -364,7 +364,6 @@ INLINE_HEADER void dtraceStartup (int num_caps) { HASKELLEVENT_GC_DONE(cap) #define dtraceGcGlobalSync(cap) \ HASKELLEVENT_GC_GLOBAL_SYNC(cap) -/* FIXME: leads to a validate failure on OS X (Lion) #define dtraceEventGcStats(heap_capset, gens, \ copies, slop, fragmentation, \ par_n_threads, \ @@ -389,20 +388,6 @@ INLINE_HEADER void dtraceStartup (int num_caps) { HASKELLEVENT_HEAP_SIZE(heap_capset, size) #define dtraceEventHeapLive(heap_capset, live) \ HASKELLEVENT_HEAP_LIVE(heap_capset, live) - */ -#define dtraceEventGcStats(heap_capset, gens, \ - copies, slop, fragmentation, \ - par_n_threads, \ - par_max_copied, \ - par_tot_copied) -#define dtraceHeapInfo(heap_capset, gens, \ - maxHeapSize, allocAreaSize, \ - mblockSize, blockSize) -#define dtraceEventHeapAllocated(cap, heap_capset, \ - allocated) -#define dtraceEventHeapSize(heap_capset, size) -#define dtraceEventHeapLive(heap_capset, live) - #define dtraceCapsetCreate(capset, capset_type) \ HASKELLEVENT_CAPSET_CREATE(capset, capset_type) #define dtraceCapsetDelete(capset) \ @@ -552,9 +537,7 @@ INLINE_HEADER void traceEventMigrateThread(Capability *cap STG_UNUSED, INLINE_HEADER void traceCapCreate(Capability *cap STG_UNUSED) { traceCapEvent(cap, EVENT_CAP_CREATE); -/* FIXME: leads to a validate failure on OS X (Lion) dtraceCapCreate((EventCapNo)cap->no); - */ } INLINE_HEADER void traceCapDelete(Capability *cap STG_UNUSED) @@ -653,9 +636,7 @@ INLINE_HEADER void traceEventGcDone(Capability *cap STG_UNUSED) INLINE_HEADER void traceEventGcGlobalSync(Capability *cap STG_UNUSED) { traceGcEvent(cap, EVENT_GC_GLOBAL_SYNC); -/* FIXME: leads to a validate failure on OS X (Lion) dtraceGcGlobalSync((EventCapNo)cap->no); - */ } INLINE_HEADER void traceEventGcStats(Capability *cap STG_UNUSED, |