mirror of
git://c9x.me/qbe.git
synced 2026-04-05 18:09:47 +00:00
get more entropy in callgen.ml
This commit is contained in:
parent
e4da265b50
commit
3ea138853d
@ -65,6 +65,7 @@ module Gen = struct
|
|||||||
| None ->
|
| None ->
|
||||||
let f = open_in "/dev/urandom" in
|
let f = open_in "/dev/urandom" in
|
||||||
let seed =
|
let seed =
|
||||||
|
Char.code (input_char f) lsl 16 +
|
||||||
Char.code (input_char f) lsl 8 +
|
Char.code (input_char f) lsl 8 +
|
||||||
Char.code (input_char f) in
|
Char.code (input_char f) in
|
||||||
close_in f;
|
close_in f;
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user