diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2014-11-18 15:44:14 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2016-04-26 16:00:43 +0100 |
| commit | e68195a96529cf1cc2d9cc6a9bc05183fce5ecea (patch) | |
| tree | d79dbffbcb44cbdd7e10706535a66e4d9669378d /rts/Task.c | |
| parent | c9bcaf3165586ac214fa694e61c55eb45eb131ab (diff) | |
| download | haskell-e68195a96529cf1cc2d9cc6a9bc05183fce5ecea.tar.gz | |
RTS: Add setInCallCapability()
This allows an OS thread to specify which capability it should run on
when it makes a call into Haskell. It is intended for a fairly
specialised use case, when the client wants to have tighter control over
the mapping between OS threads and Capabilities - perhaps 1:1
correspondence, for example.
Diffstat (limited to 'rts/Task.c')
| -rw-r--r-- | rts/Task.c | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/rts/Task.c b/rts/Task.c index 82f7780654..c30bcf17d5 100644 --- a/rts/Task.c +++ b/rts/Task.c @@ -213,6 +213,7 @@ newTask (rtsBool worker) task->n_spare_incalls = 0; task->spare_incalls = NULL; task->incall = NULL; + task->preferred_capability = -1; #if defined(THREADED_RTS) initCondition(&task->cond); @@ -488,6 +489,14 @@ interruptWorkerTask (Task *task) #endif /* THREADED_RTS */ +void +setInCallCapability (int preferred_capability) +{ + Task *task = allocTask(); + task->preferred_capability = preferred_capability; +} + + #ifdef DEBUG void printAllTasks(void); |