`sig
exception Out_of_pool_memory
val create_mempool : ?alloc_really:bool -> int -> Netmcore.res_id
val alloc_mem : Netmcore.res_id -> int -> Netsys_mem.memory
val size_mem : Netmcore.res_id -> Netsys_mem.memory -> int
val size_mem_at_addr : Netmcore.res_id -> nativeint -> int
val free_mem : Netmcore.res_id -> Netsys_mem.memory -> unit
val stats : Netmcore.res_id -> int * int * int
val debug_info : Netmcore.res_id -> string
val shm_name : Netmcore.res_id -> string
module Debug :
sig
val enable : bool Pervasives.ref
val enable_alloc : bool Pervasives.ref
end
end`