diff options
| -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; |