mirror of
git://c9x.me/qbe.git
synced 2026-04-05 09:59: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 ->
|
||||
let f = open_in "/dev/urandom" in
|
||||
let seed =
|
||||
Char.code (input_char f) lsl 16 +
|
||||
Char.code (input_char f) lsl 8 +
|
||||
Char.code (input_char f) in
|
||||
close_in f;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user