diff options
author | Duncan Coutts <duncan@well-typed.com> | 2011-06-06 10:32:33 +0100 |
---|---|---|
committer | Duncan Coutts <duncan@well-typed.com> | 2011-07-18 16:31:14 +0100 |
commit | 5d091088ce94be4c389fa669911d0e842bd08952 (patch) | |
tree | ec18221bfe74de9bbfbdded76b923f90630aaae6 /rts/Capability.c | |
parent | ddb47a91da7132da2303c60a5aff4e38fb2dcf1a (diff) | |
download | haskell-5d091088ce94be4c389fa669911d0e842bd08952.tar.gz |
Move allocation of spark pools into initCapability
Rather than a separate phase of initSparkPools. It means all the spark
stuff for a capability is initialisaed at the same time, which is then
becomes a good place to stick an initial spark trace event.
Diffstat (limited to 'rts/Capability.c')
-rw-r--r-- | rts/Capability.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/Capability.c b/rts/Capability.c index 410d3d0a9c..d8c3b2d53c 100644 --- a/rts/Capability.c +++ b/rts/Capability.c @@ -232,6 +232,7 @@ initCapability( Capability *cap, nat i ) cap->returning_tasks_hd = NULL; cap->returning_tasks_tl = NULL; cap->inbox = (Message*)END_TSO_QUEUE; + cap->sparks = allocSparkPool(); cap->spark_stats.created = 0; cap->spark_stats.dud = 0; cap->spark_stats.overflowed = 0; |