···23232424module type FLAGS = sig
2525 type t = private int
2626+ val empty : t
2627 val of_int : int -> t
2728 val ( + ) : t -> t -> t
2829 val mem : t -> t -> bool
···30313132module Flags = struct
3233 type t = int
3434+3535+ let empty = 0
33363437 let of_int x = x
3538···5457 let nonblock = Config.o_nonblock
5558 let dsync = Config.o_dsync
5659 let direct = Config.o_direct
5757- let largefile = Config.o_largefile
5860 let directory = Config.o_directory
5961 let nofollow = Config.o_nofollow
6062 let noatime = Config.o_noatime
+2
vendor/opam/uring/lib/uring/uring.mli
···9090 type t = private int
9191 (** A set of flags. *)
92929393+ val empty : t
9494+9395 val of_int : int -> t
94969597 val ( + ) : t -> t -> t