File tree Expand file tree Collapse file tree 3 files changed +3
-3
lines changed
Expand file tree Collapse file tree 3 files changed +3
-3
lines changed Original file line number Diff line number Diff line change 2626*)
2727
2828let random_seed: unit -> int array = fun _ ->
29- let seed :int = [% raw " Math.floor(Math.random()*0x7fff_ffff )" ] in
29+ let seed :int = [% raw " Math.floor(Math.random()*0x7fffffff )" ] in
3030 [|seed|]
3131
3232module State = struct
Original file line number Diff line number Diff line change @@ -9,7 +9,7 @@ import * as Caml_int64 from "./caml_int64.js";
99import * as Caml_string from "./caml_string.js" ;
1010
1111function random_seed ( param ) {
12- return [ ( Math . floor ( Math . random ( ) * 0x7fff_ffff ) ) ] ;
12+ return [ ( Math . floor ( Math . random ( ) * 0x7fffffff ) ) ] ;
1313}
1414
1515function assign ( st1 , st2 ) {
Original file line number Diff line number Diff line change @@ -9,7 +9,7 @@ var Caml_int64 = require("./caml_int64.js");
99var Caml_string = require ( "./caml_string.js" ) ;
1010
1111function random_seed ( param ) {
12- return [ ( Math . floor ( Math . random ( ) * 0x7fff_ffff ) ) ] ;
12+ return [ ( Math . floor ( Math . random ( ) * 0x7fffffff ) ) ] ;
1313}
1414
1515function assign ( st1 , st2 ) {
You can’t perform that action at this time.
0 commit comments