diff options
| author | donnie@darthik.com <unknown> | 2009-04-03 03:30:25 +0000 |
|---|---|---|
| committer | donnie@darthik.com <unknown> | 2009-04-03 03:30:25 +0000 |
| commit | e8d7985d56595f6b8004546bedc41627ca70c528 (patch) | |
| tree | 0e64ccc292ee511027f61ff1831c3e2016c09169 /rts/Sparks.c | |
| parent | 2a21b894d36ad83797bd46aa683297c3d466d3bb (diff) | |
| download | haskell-e8d7985d56595f6b8004546bedc41627ca70c528.tar.gz | |
Eventlog support for new event type: create spark.
Diffstat (limited to 'rts/Sparks.c')
| -rw-r--r-- | rts/Sparks.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/rts/Sparks.c b/rts/Sparks.c index 3fccdb6da9..aed75e52ab 100644 --- a/rts/Sparks.c +++ b/rts/Sparks.c @@ -57,6 +57,7 @@ createSparkThread (Capability *cap) tso = createIOThread (cap, RtsFlags.GcFlags.initialStkSize, &base_GHCziConc_runSparks_closure); + appendToRunQueue(cap,tso); } @@ -83,6 +84,8 @@ newSpark (StgRegTable *reg, StgClosure *p) cap->sparks_created++; + postEvent(cap, EVENT_CREATE_SPARK, reg->rCurrentTSO->id, 0); + return 1; } |