upstream: https://github.com/mirage/mirage-crypto
fix(lint): resolve E335 used underscore-prefixed bindings
- _sources -> sources_ref in entropy.ml
- _default_generator -> default_generator_ref in rng.ml
+8
-8
+4
-4
rng/entropy.ml
+4
-4
rng/entropy.ml
···
60
60
String.compare an bn
61
61
end)
62
62
63
-
let _sources = Atomic.make S.empty
63
+
let sources_ref = Atomic.make S.empty
64
64
65
65
type source = Rng.source
66
66
67
67
let register_source name =
68
68
let rec set () =
69
-
let sources = Atomic.get _sources in
69
+
let sources = Atomic.get sources_ref in
70
70
let n = S.cardinal sources in
71
71
let source = (n, name) in
72
-
if Atomic.compare_and_set _sources sources (S.add source sources) then
72
+
if Atomic.compare_and_set sources_ref sources (S.add source sources) then
73
73
source
74
74
else set ()
75
75
in
76
76
set ()
77
77
78
78
let id (idx, _) = idx
79
-
let sources () = S.elements (Atomic.get _sources)
79
+
let sources () = S.elements (Atomic.get sources_ref)
80
80
let pp_source ppf (idx, name) = Format.fprintf ppf "[%d] %s" idx name
81
81
82
82
let cpu_rng isn buf off =
+4
-4
rng/rng.ml
+4
-4
rng/rng.ml
···
49
49
Option.iter (M.reseed ~g) seed;
50
50
Generator (g, strict, m)
51
51
52
-
let _default_generator = Atomic.make None
53
-
let set_default_generator g = Atomic.set _default_generator (Some g)
54
-
let unset_default_generator () = Atomic.set _default_generator None
52
+
let default_generator_ref = Atomic.make None
53
+
let set_default_generator g = Atomic.set default_generator_ref (Some g)
54
+
let unset_default_generator () = Atomic.set default_generator_ref None
55
55
56
56
let default_generator () =
57
-
match Atomic.get _default_generator with
57
+
match Atomic.get default_generator_ref with
58
58
| None -> raise No_default_generator
59
59
| Some g -> g
60
60