diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-03-09 14:31:11 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-03-09 14:31:11 +0000 |
| commit | 7effbbbbdfe7eb05c6402fa9337e358e7e9fadde (patch) | |
| tree | d5896a7858db38265b77fc799fc54d5151737aab /rts/Stats.c | |
| parent | 4e8b07dbc753a5132c574926468ba886728c9049 (diff) | |
| download | haskell-7effbbbbdfe7eb05c6402fa9337e358e7e9fadde.tar.gz | |
Split part of the Task struct into a separate struct InCall
The idea is that this leaves Tasks and OSThread in one-to-one
correspondence. The part of a Task that represents a call into
Haskell from C is split into a separate struct InCall, pointed to by
the Task and the TSO bound to it. A given OSThread/Task thus always
uses the same mutex and condition variable, rather than getting a new
one for each callback. Conceptually it is simpler, although there are
more types and indirections in a few places now.
This improves callback performance by removing some of the locks that
we had to take when making in-calls. Now we also keep the current Task
in a thread-local variable if supported by the OS and gcc (currently
only Linux).
Diffstat (limited to 'rts/Stats.c')
| -rw-r--r-- | rts/Stats.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Stats.c b/rts/Stats.c index 20de32a808..58b113d74b 100644 --- a/rts/Stats.c +++ b/rts/Stats.c @@ -623,7 +623,7 @@ stat_exit(int alloc) i++, task = task->all_link) { statsPrintf(" Task %2d %-8s : %6.2fs (%6.2fs) %6.2fs (%6.2fs)\n", i, - (task->tso == NULL) ? "(worker)" : "(bound)", + (task->worker) ? "(worker)" : "(bound)", TICK_TO_DBL(task->mut_time), TICK_TO_DBL(task->mut_etime), TICK_TO_DBL(task->gc_time), |