Fix 32-bit path (unnecessary use of wrong mask)

ocaml · Mar 15, 2021 · 9352d81 · 9352d81
1 parent 213b920
commit 9352d81
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/stdlib/random.ml b/stdlib/random.ml
@@ -102,7 +102,7 @@ module State = struct
         (* 32 random bits on both 64-bit OCaml and JavaScript.
            Use upper 16 bits of b1 and b2. *)
         let bpos =
-          (((b2 land 0x3FFFC000) lsl 2) lor (b1 lsr 14)) land max_int_32
+          (((b2 land 0x3FFFC000) lsl 2) lor (b1 lsr 14))
         in
           (bpos, max_int_32)
       else