This commit is contained in:
Simon Cruanes 2024-08-28 14:00:37 -04:00
parent e1105f4a88
commit a0068b09b3
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
3 changed files with 6 additions and 4 deletions

View file

@ -3,12 +3,12 @@
(name moonpool) (name moonpool)
(libraries (libraries
moonpool.private moonpool.private
thread-local-storage (re_export thread-local-storage)
moonpool.dpool moonpool.dpool
picos.exn_bt (re_export picos.exn_bt)
picos) (re_export picos))
(flags :standard -open Moonpool_private) (flags :standard -open Moonpool_private)
(private_modules types_ util_pool_) (private_modules util_pool_)
(preprocess (preprocess
(action (action
(run %{project_root}/src/cpp/cpp.exe %{input-file})))) (run %{project_root}/src/cpp/cpp.exe %{input-file}))))

View file

@ -39,6 +39,7 @@ module Private = struct
module Worker_loop_ = Worker_loop_ module Worker_loop_ = Worker_loop_
module Domain_ = Domain_ module Domain_ = Domain_
module Tracing_ = Tracing_ module Tracing_ = Tracing_
module Types_ = Types_
let num_domains = Domain_pool_.max_number_of_domains let num_domains = Domain_pool_.max_number_of_domains
end end

View file

@ -221,6 +221,7 @@ module Private : sig
(** Utils for domains *) (** Utils for domains *)
module Tracing_ = Tracing_ module Tracing_ = Tracing_
module Types_ = Types_
val num_domains : unit -> int val num_domains : unit -> int
(** Number of domains in the backing domain pool *) (** Number of domains in the backing domain pool *)