diff options
| author | Spencer Janssen <spencer@well-typed.com> | 2011-04-14 01:11:05 -0500 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-05-18 11:14:27 +0100 |
| commit | 58532eb46041aec8d4cbb48b054cb5b001edb43c (patch) | |
| tree | 1fd878273e11b04045e48178acc8eaacd2ccace9 /rts/Capability.c | |
| parent | 58339b06aff704834e8553faaa2db00d746b26f3 (diff) | |
| download | haskell-58532eb46041aec8d4cbb48b054cb5b001edb43c.tar.gz | |
Add capability sets to the event system. Contains code from Duncan Coutts.
Diffstat (limited to 'rts/Capability.c')
| -rw-r--r-- | rts/Capability.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/rts/Capability.c b/rts/Capability.c index 9091fdde0c..9557fcc07f 100644 --- a/rts/Capability.c +++ b/rts/Capability.c @@ -253,6 +253,8 @@ initCapability( Capability *cap, nat i ) cap->transaction_tokens = 0; cap->context_switch = 0; cap->pinned_object_block = NULL; + + traceCapsetAssignCap(CAPSET_OSPROCESS_DEFAULT, i); } /* --------------------------------------------------------------------------- @@ -266,6 +268,7 @@ initCapability( Capability *cap, nat i ) void initCapabilities( void ) { + #if defined(THREADED_RTS) nat i; @@ -833,6 +836,7 @@ freeCapabilities (void) #else freeCapability(&MainCapability); #endif + traceCapsetDelete(CAPSET_OSPROCESS_DEFAULT); } /* --------------------------------------------------------------------------- |