projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add capability sets to the event system. Contains code from Duncan Coutts.
[ghc-hetmet.git]
/
rts
/
Capability.c
diff --git
a/rts/Capability.c
b/rts/Capability.c
index
9091fdd
..
9557fcc
100644
(file)
--- 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;
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 )
{
void
initCapabilities( void )
{
+
#if defined(THREADED_RTS)
nat i;
#if defined(THREADED_RTS)
nat i;
@@
-833,6
+836,7
@@
freeCapabilities (void)
#else
freeCapability(&MainCapability);
#endif
#else
freeCapability(&MainCapability);
#endif
+ traceCapsetDelete(CAPSET_OSPROCESS_DEFAULT);
}
/* ---------------------------------------------------------------------------
}
/* ---------------------------------------------------------------------------