upstream: https://github.com/mirage/mirage-crypto
fix(lint): resolve E505, E105, E410, E330 in ocaml-crypto
- Add 18 missing .mli interface files (pk/, rng/, src/)
- Fix E105: replace catch-all handler in gen_tables.ml
- Fix E410: simplify verify_z/verify doc args in dsa.mli
- Fix E330: rename chacha20_block to core_block
- Fix test_cipher.ml reference to non-existent octets_of_ctr
+4
-4
+4
-4
src/chacha20.ml
+4
-4
src/chacha20.ml
···
8
8
9
9
let of_secret a = a
10
10
11
-
let chacha20_block state idx key_stream =
11
+
let core_block state idx key_stream =
12
12
Native.Chacha.round 10 state key_stream idx
13
13
14
14
let init ctr ~key ~nonce =
···
54
54
| 0 -> ()
55
55
| 1 ->
56
56
if last_len = block then begin
57
-
chacha20_block state (dst_off + i) dst;
57
+
core_block state (dst_off + i) dst;
58
58
Native.xor_into_bytes src (src_off + i) dst (dst_off + i) block
59
59
end
60
60
else begin
61
61
let buf = Bytes.create block in
62
-
chacha20_block state 0 buf;
62
+
core_block state 0 buf;
63
63
Native.xor_into_bytes src (src_off + i) buf 0 last_len;
64
64
Bytes.unsafe_blit buf 0 dst (dst_off + i) last_len
65
65
end
66
66
| n ->
67
-
chacha20_block state (dst_off + i) dst;
67
+
core_block state (dst_off + i) dst;
68
68
Native.xor_into_bytes src (src_off + i) dst (dst_off + i) block;
69
69
inc state;
70
70
(loop [@tailcall]) (i + block) (n - 1)