simon/moonpool
1
0
Fork 0
mirror of https://github.com/c-cube/moonpool.git synced 2025-12-06 03:05:30 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix: uniformize domain stub

Browse source
This commit is contained in:
Simon Cruanes 2023-05-31 00:45:43 -04:00
parent 22ab8e4a69
commit a585cc8158
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/gen/gen.ml
View file

@ -53,7 +53,7 @@ type t = Thread.t
let get_id (self:t) : int = Thread.id self let get_id (self:t) : int = Thread.id self
let spawn_on f : t = let spawn f : t =
Thread.create f () Thread.create f ()
|} |}

2
src/moonpool.ml
View file

@ -59,7 +59,7 @@ module D_pool_ = struct
(let n = Domain_.recommended_number () in (let n = Domain_.recommended_number () in
Array.init n (fun i -> Array.init n (fun i ->
let q = S_queue.create () in let q = S_queue.create () in
let _domain : domain = Domain_.spawn_on (fun () -> work_ i q) in let _domain : domain = Domain_.spawn (fun () -> work_ i q) in
{ q })) { q }))
(** Number of domains in the pool *) (** Number of domains in the pool *)