diff options
author | Duncan Coutts <duncan@well-typed.com> | 2011-05-23 00:10:21 +0100 |
---|---|---|
committer | Duncan Coutts <duncan@well-typed.com> | 2011-05-23 00:10:21 +0100 |
commit | 96d64fe2175d829f9499656750d51cf577ff9892 (patch) | |
tree | d2f784f6086b830d7429e1b77904f5e500e4e95d /rts/Trace.h | |
parent | e7dcbdc7b68275d23debfec5f17074c55212eeb1 (diff) | |
download | haskell-96d64fe2175d829f9499656750d51cf577ff9892.tar.gz |
Revert "Add capability sets to the event system. Contains code from Duncan Coutts."
This reverts commit 58532eb46041aec8d4cbb48b054cb5b001edb43c.
Turns out it didn't work on Windows and it'll need some non-trivial changes
to make it work on Windows. We'll get it in later once that's sorted out.
Diffstat (limited to 'rts/Trace.h')
-rw-r--r-- | rts/Trace.h | 69 |
1 files changed, 0 insertions, 69 deletions
diff --git a/rts/Trace.h b/rts/Trace.h index 04075ad6e9..620915665b 100644 --- a/rts/Trace.h +++ b/rts/Trace.h @@ -31,13 +31,6 @@ void resetTracing (void); #endif /* TRACING */ -typedef StgWord32 CapsetID; -typedef StgWord16 CapsetType; -enum CapsetType { CapsetTypeCustom = CAPSET_TYPE_CUSTOM, - CapsetTypeOsProcess = CAPSET_TYPE_OSPROCESS, - CapsetTypeClockdomain = CAPSET_TYPE_CLOCKDOMAIN }; -#define CAPSET_OSPROCESS_DEFAULT 0 - // ----------------------------------------------------------------------------- // Message classes // ----------------------------------------------------------------------------- @@ -167,21 +160,6 @@ void traceUserMsg(Capability *cap, char *msg); void traceThreadStatus_ (StgTSO *tso); -/* - * Events for describing capability sets in the eventlog - * - * Note: unlike other events, these are not conditional on TRACE_sched or - * similar because they are not "real" events themselves but provide - * information and context for other "real" events. Other events depend on - * the capset info events so for simplicity, rather than working out if - * they're necessary we always emit them. They should be very low volume. - */ -void traceCapsetModify_ (EventTypeNum tag, - CapsetID capset, - StgWord32 other, - StgWord32 other2); - -void traceCapsetDetails_ (int *argc, char **argv[]); #else /* !TRACING */ #define traceSchedEvent(cap, tag, tso, other) /* nothing */ @@ -192,8 +170,6 @@ void traceCapsetDetails_ (int *argc, char **argv[]); #define debugTrace(class, str, ...) /* nothing */ #define debugTraceCap(class, cap, str, ...) /* nothing */ #define traceThreadStatus(class, tso) /* nothing */ -#define traceCapsetModify_(tag, capset, other, other2) /* nothing */ -#define traceCapsetDetails_(argc, argv) /* nothing */ #endif /* TRACING */ @@ -250,14 +226,6 @@ void dtraceUserMsgWrapper(Capability *cap, char *msg); HASKELLEVENT_GC_WORK(cap) #define dtraceGcDone(cap) \ HASKELLEVENT_GC_DONE(cap) -#define dtraceCapsetCreate(capset, capset_type) \ - HASKELLEVENT_CAPSET_CREATE(capset, capset_type) -#define dtraceCapsetDelete(capset) \ - HASKELLEVENT_CAPSET_DELETE(capset) -#define dtraceCapsetAssignCap(capset, capno) \ - HASKELLEVENT_CAPSET_ASSIGN_CAP(capset, capno) -#define dtraceCapsetRemoveCap(capset, capno) \ - HASKELLEVENT_CAPSET_REMOVE_CAP(capset, capno) #else /* !defined(DTRACE) */ @@ -280,10 +248,6 @@ void dtraceUserMsgWrapper(Capability *cap, char *msg); #define dtraceGcIdle(cap) /* nothing */ #define dtraceGcWork(cap) /* nothing */ #define dtraceGcDone(cap) /* nothing */ -#define dtraceCapsetCreate(capset, capset_type) /* nothing */ -#define dtraceCapsetDelete(capset) /* nothing */ -#define dtraceCapsetAssignCap(capset, capno) /* nothing */ -#define dtraceCapsetRemoveCap(capset, capno) /* nothing */ #endif @@ -441,39 +405,6 @@ INLINE_HEADER void traceEventGcDone(Capability *cap STG_UNUSED) dtraceGcDone((EventCapNo)cap->no); } -INLINE_HEADER void traceCapsetCreate(CapsetID capset STG_UNUSED, - CapsetType capset_type STG_UNUSED) -{ - traceCapsetModify_(EVENT_CAPSET_CREATE, capset, capset_type, 0); - dtraceCapsetCreate(capset, capset_type); -} - -INLINE_HEADER void traceCapsetDelete(CapsetID capset STG_UNUSED) -{ - traceCapsetModify_(EVENT_CAPSET_DELETE, capset, 0, 0); - dtraceCapsetDelete(capset); -} - -INLINE_HEADER void traceCapsetAssignCap(CapsetID capset STG_UNUSED, - nat capno STG_UNUSED) -{ - traceCapsetModify_(EVENT_CAPSET_ASSIGN_CAP, capset, capno, 0); - dtraceCapsetAssignCap(capset, capno); -} - -INLINE_HEADER void traceCapsetRemoveCap(CapsetID capset STG_UNUSED, - nat capno STG_UNUSED) -{ - traceCapsetModify_(EVENT_CAPSET_REMOVE_CAP, capset, capno, 0); - dtraceCapsetRemoveCap(capset, capno); -} - -INLINE_HEADER void traceCapsetDetails(int *argc STG_UNUSED, char **argv[] STG_UNUSED) -{ - traceCapsetCreate(CAPSET_OSPROCESS_DEFAULT, CapsetTypeOsProcess); - traceCapsetDetails_(argc, argv); -} - #include "EndPrivate.h" #endif /* TRACE_H */ |