Tweetnacl: bugfix
This commit is contained in:
parent
632233ea0c
commit
3be9928e54
1
vendors/ocaml-tweetnacl/src/tweetnacl.ml
vendored
1
vendors/ocaml-tweetnacl/src/tweetnacl.ml
vendored
@ -30,6 +30,7 @@ module Hash = struct
|
|||||||
end
|
end
|
||||||
|
|
||||||
let cs_of_z cs z =
|
let cs_of_z cs z =
|
||||||
|
Cstruct.memset cs 0 ;
|
||||||
let bits = Z.to_bits z in
|
let bits = Z.to_bits z in
|
||||||
Cstruct.blit_from_string bits 0 cs 0 (String.length bits)
|
Cstruct.blit_from_string bits 0 cs 0 (String.length bits)
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user