module Rd:sig
..end
type
tbl
val create : int -> tbl
val clear : tbl -> unit
val put : tbl -> int * Bi_share.type_id -> Obj.t -> unit
put tbl pos x
puts the position of a new shared value into the
table. pos
is the absolute position of the first byte
of the ref value excluding its tag.val get : tbl -> int * Bi_share.type_id -> Obj.t