diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-04-23 14:19:40 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-04-23 14:19:40 +0000 |
| commit | b5a73581d0c03b9d44a77706b5973d74074aa6c1 (patch) | |
| tree | 52d8cd31bd42772d2c08274caccb29377706ac7a /rts/Sparks.c | |
| parent | 2b569f55bdaaeb0cbff16f9e2bf90e14a2fb3139 (diff) | |
| download | haskell-b5a73581d0c03b9d44a77706b5973d74074aa6c1.tar.gz | |
Add EVENT_CREATE_SPARK_THREAD to replace EVENT_SPARK_TO_THREAD
Also some tidyups and renaming
Diffstat (limited to 'rts/Sparks.c')
| -rw-r--r-- | rts/Sparks.c | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/rts/Sparks.c b/rts/Sparks.c index 7e89d46c66..2167de0dcf 100644 --- a/rts/Sparks.c +++ b/rts/Sparks.c @@ -58,12 +58,7 @@ createSparkThread (Capability *cap) tso = createIOThread (cap, RtsFlags.GcFlags.initialStkSize, &base_GHCziConc_runSparks_closure); - if (cap->r.rCurrentTSO != NULL) - // Capability in a bound thread? - postEvent(cap, EVENT_SPARK_TO_THREAD, cap->r.rCurrentTSO->id, tso->id); - else - // Capability in a worker thread? - postEvent(cap, EVENT_SPARK_TO_THREAD, 0, tso->id); + postEvent(cap, EVENT_CREATE_SPARK_THREAD, 0, tso->id); appendToRunQueue(cap,tso); } |