upstream: https://github.com/mirage/mirage-crypto
crypto: fix _rounds binding — used in assertion (merlint E726)
+2
-2
+2
-2
src/ocaml/native.ml
+2
-2
src/ocaml/native.ml
···
7
7
let rk_s rounds = (rounds + 1) * 16
8
8
9
9
let derive_e key rk rounds =
10
-
let ekey, _rounds = Aes_pure.expand_key key in
11
-
assert (_rounds = rounds);
10
+
let ekey, nr = Aes_pure.expand_key key in
11
+
assert (nr = rounds);
12
12
(* Store Int32 round keys as big-endian bytes in rk *)
13
13
for i = 0 to Array.length ekey - 1 do
14
14
let w = ekey.(i) in