sig
type 'a t
type stamp = int32
external make :
'a -> AtomicStampedReference.stamp -> 'a AtomicStampedReference.t
= "ocamljava_atomicstampedreference_make"
external attempt_stamp :
'a AtomicStampedReference.t -> 'a -> AtomicStampedReference.stamp -> bool
= "ocamljava_atomicstampedreference_attempt_stamp"
external compare_and_set :
'a AtomicStampedReference.t ->
'a ->
'a ->
AtomicStampedReference.stamp -> AtomicStampedReference.stamp -> bool
= "ocamljava_atomicstampedreference_compare_and_set"
external get :
'a AtomicStampedReference.t -> 'a * AtomicStampedReference.stamp
= "ocamljava_atomicstampedreference_get"
external get_reference : 'a AtomicStampedReference.t -> 'a
= "ocamljava_atomicstampedreference_get_reference"
external get_stamp :
'a AtomicStampedReference.t -> AtomicStampedReference.stamp
= "ocamljava_atomicstampedreference_get_stamp"
external set :
'a AtomicStampedReference.t -> 'a -> AtomicStampedReference.stamp -> unit
= "ocamljava_atomicstampedreference_set"
external weak_compare_and_set :
'a AtomicStampedReference.t ->
'a ->
'a ->
AtomicStampedReference.stamp -> AtomicStampedReference.stamp -> bool
= "ocamljava_atomicstampedreference_weak_compare_and_set"
end