diff options
| author | Quentin Carbonneaux <quentin.carbonneaux@yale.edu> | 2016-03-29 09:06:55 -0400 |
|---|---|---|
| committer | Quentin Carbonneaux <quentin.carbonneaux@yale.edu> | 2016-03-29 10:28:21 -0400 |
| commit | 3ea138853dfc00560e078d6879469c6b83a74236 (patch) | |
| tree | 5b69e071f4ed23afd3901da157242b45799386ca | |
| parent | e4da265b5017332007bb130c7df55b24d6dc4214 (diff) | |
| download | roux-3ea138853dfc00560e078d6879469c6b83a74236.tar.gz | |
get more entropy in callgen.ml
| -rw-r--r-- | tools/callgen.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/tools/callgen.ml b/tools/callgen.ml index 4679865..d53eabb 100644 --- a/tools/callgen.ml +++ b/tools/callgen.ml @@ -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; |