tso = createIOThread (cap, RtsFlags.GcFlags.initialStkSize,
&base_GHCziConc_runSparks_closure);
+
+ postEvent(cap, EVENT_CREATE_SPARK_THREAD, 0, tso->id);
+
appendToRunQueue(cap,tso);
}
cap->sparks_created++;
+ postEvent(cap, EVENT_CREATE_SPARK, cap->r.rCurrentTSO->id, 0);
+
return 1;
}