Address Damien's review

ocaml · Sep 18, 2020 · 05219a2 · 05219a2
1 parent d3d5c44
commit 05219a2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/stdlib/random.ml b/stdlib/random.ml
@@ -96,7 +96,7 @@ module State = struct
   let rec int63aux s n =
     let b1 = bits s in
     let b2 = bits s lsl 30 in
-    let b3 = (bits s land 3) lsl 60 in
+    let b3 = (bits s lsr 28) lsl 60 in
     let r = b1 lor b2 lor b3 in
     let v = r mod n in
     if r - v > max_int - n + 1 then int63aux s n else v