Verified Commit a3cfcc09 authored by Vincent Bernardoff's avatar Vincent Bernardoff Committed by Grégoire Henry

Hacl: expose hashing constants

parent 1a93df75
......@@ -50,6 +50,10 @@ module Hash = struct
mutable pos : int ;
}
let bytes = S.bytes
let blockbytes = S.blockbytes
let statebytes = S.statebytes
let init () =
let state = Bigstring.create S.statebytes in
let buf = Bigstring.create S.blockbytes in
......
......@@ -31,6 +31,10 @@ module Hash : sig
module SHA256 : sig
type state
val bytes : int
val blockbytes : int
val statebytes : int
(** Incremental Interface *)
val init : unit -> state
......@@ -54,6 +58,10 @@ module Hash : sig
module SHA512 : sig
type state
val bytes : int
val blockbytes : int
val statebytes : int
(** Incremental Interface *)
val init : unit -> state
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment