From 1259773fac4d7c334351c61ab8cf71231c1af4ef Mon Sep 17 00:00:00 2001 From: Estevan Castilho Date: Thu, 3 Sep 2026 02:23:27 +0000 Subject: Branch registration --- lib/protocols/Handle.ml | 2 ++ lib/protocols/Handle.mli | 2 ++ 2 files changed, 4 insertions(+) (limited to 'lib/protocols') diff --git a/lib/protocols/Handle.ml b/lib/protocols/Handle.ml index 23af476..524386b 100644 --- a/lib/protocols/Handle.ml +++ b/lib/protocols/Handle.ml @@ -39,6 +39,8 @@ let copy handle = let equal h1 h2 = Concepts.Hash.hash_equals (object_of h1)#hash (object_of h2)#hash +let hash h = (object_of h)#hash + let release ({ valid; _ } as handle) = let o = object_of handle in valid := false; diff --git a/lib/protocols/Handle.mli b/lib/protocols/Handle.mli index fb93cdd..f36c95e 100644 --- a/lib/protocols/Handle.mli +++ b/lib/protocols/Handle.mli @@ -20,3 +20,5 @@ val invoke : 'a interface -> ('a -> 'b) -> 'b val copy : t -> t option val equal : t -> t -> bool val release : t -> unit + +val hash : t -> Concepts.Hash.hash -- cgit v1.2.3