diff options
| author | Duncan Coutts <duncan@well-typed.com> | 2011-10-26 11:58:44 +0100 |
|---|---|---|
| committer | Duncan Coutts <duncan@well-typed.com> | 2011-10-26 12:00:43 +0100 |
| commit | d69059203d073093752bcd23181b745862a97a45 (patch) | |
| tree | c9ea85655c294f3bd53fdca5b32541f404ac8f39 /rts | |
| parent | 4856d15a87d9052e2d9729c6a3e4312eb00622a2 (diff) | |
| download | haskell-d69059203d073093752bcd23181b745862a97a45.tar.gz | |
Add a clock domain capset and emit wall clock time on rts init
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/Capability.c | 8 | ||||
| -rw-r--r-- | rts/RtsStartup.c | 1 |
2 files changed, 7 insertions, 2 deletions
diff --git a/rts/Capability.c b/rts/Capability.c index 7bba58c696..3b45dec360 100644 --- a/rts/Capability.c +++ b/rts/Capability.c @@ -266,6 +266,7 @@ initCapability( Capability *cap, nat i ) cap->pinned_object_block = NULL; traceCapsetAssignCap(CAPSET_OSPROCESS_DEFAULT, i); + traceCapsetAssignCap(CAPSET_CLOCKDOMAIN_DEFAULT, i); #if defined(THREADED_RTS) traceSparkCounters(cap); #endif @@ -282,9 +283,10 @@ initCapability( Capability *cap, nat i ) void initCapabilities( void ) { - /* Declare a single capability set representing the process. - Each capability will get added to this capset. */ + /* Declare a couple capability sets representing the process and + clock domain. Each capability will get added to these capsets. */ traceCapsetCreate(CAPSET_OSPROCESS_DEFAULT, CapsetTypeOsProcess); + traceCapsetCreate(CAPSET_CLOCKDOMAIN_DEFAULT, CapsetTypeClockdomain); #if defined(THREADED_RTS) nat i; @@ -867,6 +869,7 @@ shutdownCapability (Capability *cap, #endif /* THREADED_RTS */ traceCapsetRemoveCap(CAPSET_OSPROCESS_DEFAULT, cap->no); + traceCapsetRemoveCap(CAPSET_CLOCKDOMAIN_DEFAULT, cap->no); } void @@ -878,6 +881,7 @@ shutdownCapabilities(Task *task, rtsBool safe) shutdownCapability(&capabilities[i], task, safe); } traceCapsetDelete(CAPSET_OSPROCESS_DEFAULT); + traceCapsetDelete(CAPSET_CLOCKDOMAIN_DEFAULT); #if defined(THREADED_RTS) ASSERT(checkSparkCountInvariant()); diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c index 6e18fba273..dc6214357a 100644 --- a/rts/RtsStartup.c +++ b/rts/RtsStartup.c @@ -154,6 +154,7 @@ hs_init(int *argc, char **argv[]) initScheduler(); /* Trace some basic information about the process */ + traceWallClockTime(); traceOSProcessInfo(); /* initialize the storage manager */ |