22 lines
336 B
OCaml
22 lines
336 B
OCaml
|
(* Insecure predictable RNG for fuzz testing. *)
|
||
|
|
|
||
|
|
type g = int ref
|
||
|
|
|
||
|
|
let block = 1
|
||
|
|
|
||
|
|
let create ?time:_ () = ref 1234
|
||
|
|
|
||
|
|
let generate_into ~g buf ~off n =
|
||
|
|
for i = off to off + n - 1 do
|
||
|
|
Bytes.set_uint8 buf i !g;
|
||
|
|
g := !g + 1
|
||
|
|
done
|
||
|
|
|
||
|
|
let reseed ~g:_ _ = ()
|
||
|
|
|
||
|
|
let accumulate ~g:_ _ = `Acc ignore
|
||
|
|
|
||
|
|
let seeded ~g:_ = true
|
||
|
|
|
||
|
|
let pools = 0
|