X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FCapability.c;h=9557fcc07f21168693b6983271c0c0e0ec9fb397;hp=9091fdde0c4cfb3e24ec302fa45f5a94b7203f08;hb=58532eb46041aec8d4cbb48b054cb5b001edb43c;hpb=58339b06aff704834e8553faaa2db00d746b26f3

diff --git a/rts/Capability.c b/rts/Capability.c
index 9091fdd..9557fcc 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);
 }
 
 /* ---------------------------------------------------------------------------