Skip to content

Commit 178ef22

Browse files
bobzhangbobzhang
authored
Merge pull request #4604 from BuckleScript/improvment_Random
Improvment over Random module which is surprisingly good
2 parents 05a5bfe + c39c3d1 commit 178ef22

16 files changed

+54
-91
lines changed

‎jscomp/core/lam_dispatch_primitive.ml

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -434,7 +434,6 @@ let translate loc (prim_name : string)
434434
(* Js_of_lam_array.make_array NA Pgenarray [] *)
435435
(* ] *)
436436
| "caml_sys_time"
437-
| "caml_sys_random_seed"
438437
| "caml_sys_getenv"
439438
| "caml_sys_system_command"
440439
| "caml_sys_getcwd" (* check browser or nodejs *)

‎jscomp/main/builtin_cmi_datasets.ml

Lines changed: 3 additions & 3 deletions
Large diffs are not rendered by default.

‎jscomp/main/builtin_cmj_datasets.ml

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
(* 42d368f93e07dc14ada8ffc65a706b6e *)
1+
(* 72eb490f6ec866f252027dea39fd4832 *)
22
let module_names : string array = Obj.magic (
33
"Js" (* 23 *),
44
"Arg" (* 289 *),
@@ -32,7 +32,7 @@ let module_names : string array = Obj.magic (
3232
"Js_obj" (* 23 *),
3333
"Lexing" (* 798 *),
3434
"Printf" (* 208 *),
35-
"Random" (* 270 *),
35+
"Random" (* 251 *),
3636
"Stream" (* 326 *),
3737
"String" (* 2301 *),
3838
"Belt_Id" (* 756 *),
@@ -165,12 +165,12 @@ let module_data : string array = Obj.magic (
165165
(* Js_obj *)"\132\149\166\190\000\000\000\003\000\000\000\001\000\000\000\003\000\000\000\003\160\128A",
166166
(* Lexing *)"\132\149\166\190\000\000\003\n\000\000\000\187\000\000\002\131\000\000\002^\160\b\000\000D\000\176&engine\144\160\160C@@@\176&lexeme\144\160\160A@@@\176(new_line\144\160\160A@@@\176*lexeme_end\144\160\160A@@\144\180A\160\176\001\005\r&lexbuf@@\151\176\161C\161(pos_cnum@\160\151\176\161K\161*lex_curr_pA\160\144\004\015@\176\1924stdlib-406/lexing.ml\001\000\216\001\027w\001\027\143\192\004\002\001\000\216\001\027w\001\027\160@@\176\004\004\192\004\004\001\000\216\001\027w\001\027\169@\176*new_engine\144\160\160C@@@\176*sub_lexeme\144\160\160C@@@\176+flush_input\144\160\160A@@@\176+from_string\144\160\160A@@@\176+lexeme_char\144\160\160B@@@\176,from_channel\144\160\160A@@@\176,lexeme_end_p\144\160\160A@@\144\180A\160\176\001\005\017&lexbuf@@\151\176\161K\161\0045A\160\144\004\b@\176\192\0044\001\000\219\001\027\218\001\027\244\192\0045\001\000\219\001\027\218\001\028\005@\176,lexeme_start\144\160\160A@@\144\180A\160\176\001\005\011&lexbuf@@\151\176\161C\161\004N@\160\151\176\161J\161+lex_start_pA\160\144\004\014@\176\192\004M\001\000\215\001\027A\001\027[\192\004N\001\000\215\001\027A\001\027m@@\176\004\003\192\004P\001\000\215\001\027A\001\027v@\176-from_function\144\160\160A@@@\176.lexeme_start_p\144\160\160A@@\144\180A\160\176\001\005\015&lexbuf@@\151\176\161J\161\004\027A\160\144\004\b@\176\192\004g\001\000\218\001\027\171\001\027\199\192\004h\001\000\218\001\027\171\001\027\217@\176.sub_lexeme_opt\144\160\160C@@@\176/sub_lexeme_char\144\160\160B@@\144\180B\160\176\001\005\002&lexbuf@\160\176\001\005\003!i@@\151\176c\160\151\176\161A\161*lex_bufferA\160\144\004\015@\176\192\004\134\001\000\203\001\026?\001\026h\192\004\135\001\000\203\001\026?\001\026y@\160\144\004\017@\176\192\004\139\001\000\203\001\026?\001\026^\192\004\140\001\000\203\001\026?\001\026{@\1763sub_lexeme_char_opt\144\160\160B@@@A",
167167
(* Printf *)"\132\149\166\190\000\000\000\188\000\000\0008\000\000\000\182\000\000\000\171\160\b\000\000,\000\176&printf\144\160\160A@@@\176'bprintf\144\160\160B@@@\176'eprintf\144\160\160A@@@\176'fprintf\144\160\160B@@@\176'kprintf\144\160\160B@@@\176'sprintf\144\160\160A@@@\176(ifprintf\144\160\160B\160A@@@\176(kbprintf\144\160\160C@@@\176(kfprintf\144\160\160C@@@\176(ksprintf\144\004\026@\176)ikfprintf\144\160\160C\004\019@@A",
168-
(* Random *)"\132\149\166\190\000\000\000\250\000\000\000T\000\000\001\019\000\000\001\007\160\b\000\0004\000\176#int\144\160\160A@@@\176$bits\144\160\160A@@@\176$bool\144\160\160A@@@\176$init\144\160\160A@@@\176%State\145\b\000\000(\000\160\160A@@\160\160A@@\160\160A@@\160\160A@@\160\160B@@\160\160B@@@\160\160B@@\160\160B@@\160\160A@@@\176%float\144\160\160A@@@\176%int32\144\160\160A@@@\176%int64\144\160\160A@@@\176)full_init\144\160\160A@@@\176)get_state\144\160\160A@@@\176)nativeint\144\160\160A@@@\176)self_init\144\160\160A@@@\176)set_state\144\160\160A@@@A",
168+
(* Random *)"\132\149\166\190\000\000\000\231\000\000\000O\000\000\001\001\000\000\000\246\160\b\000\0000\000\176#int\144\160\160A@@@\176$bits\144\160\160A@@@\176$bool\144\160\160A@@@\176$init\144\160\160A@@@\176%State\145\b\000\000$\000\160\160A@@\160\160A@@\160\160A@@\160\160A@@\160\160B@@\160\160B@@\160\160B@@\160\160B@@\160\160A@@@\176%float\144\160\160A@@@\176%int32\144\160\160A@@@\176%int64\144\160\160A@@@\176)full_init\144\160\160A@@@\176)get_state\144\160\160A@@@\176)self_init\144\160\160A@@@\176)set_state\144\160\160A@@@A",
169169
(* Stream *)"\132\149\166\190\000\000\0012\000\000\000k\000\000\001U\000\000\001@\160\b\000\000T\000\176$dump\144\160\160B@@@\176$from\144\160\160A@@@\176$iapp\144\160\160B@@@\176$iter\144\160\160B@@@\176$junk\144\160\160A@@@\176$lapp\144\160\160B@@@\176$next\144\160\160A@@@\176$peek\144\160\160A@@@\176%count\144\160\160A@@@\176%empty\144\160\160A@@@\176%icons\144\160\160B@@@\176%ising\144\160\160A@@@\176%lcons\144\160\160B@@@\176%lsing\144\160\160A@@@\176%npeek\144\160\160B@@@\176%slazy\144\160\160A@@@\176&sempty\144@\144\146A\176'of_list\144\160\160A@@@\176(of_bytes\144\160\160A@@@\176)of_string\144\160\160A@@@\176*of_channel\144\160\160A@@@A",
170170
(* String *)"\132\149\166\190\000\000\b\233\000\000\002P\000\000\007\194\000\000\007x\160\b\000\000\140\000\176#map\144\160\160B@@@\176#sub\144\160\160C@@@\176$blit\144\160\160E@@@\176$copy\144\160\160A@@\144\180A\160\176\001\004.!s@@\147\192\151\176\161i\1460unsafe_to_string\160\145\176@%BytesA@\176\192&_none_A@\000\255\004\002A\160\147\192\151\176\161C\146$copy\160\145\004\015@\004\r\160\147\192\151\176\161j\1460unsafe_of_string\160\145\004\025@\004\023\160\144\004&@\176\1924stdlib-406/string.mlm\001\b\137\001\b\146\192\004\002m\001\b\137\001\b\153@@@\176\192\004\004m\001\b\137\001\b\139\004\003@A@\176\004\002\192\004\006m\001\b\137\001\b\160@@\176$fill\144\160\160D@@@\176$init\144\160\160B@@\144\180B\160\176\001\004+!n@\160\176\001\004,!f@@\147\192\151\176\004>\160\004;@\0048\160\147\192\151\176\161A\146$init\160\145\004D@\004B\160\144\004\022\160\144\004\021@\176\192\004-k\001\bh\001\bj\192\004.k\001\bh\001\bt@A@\176\004\003\192\0040k\001\bh\001\b{@@\176$iter\144\160\160B@@@\176$make\144\160\160B@@\144\180B\160\176\001\005\173$prim@\160\176\001\005\172\004\003@@\151\176\1482caml_string_repeat\160\144\004\n\160\144\004\t@\176\192\004Kh\001\b\025\001\b\025\192\004Lh\001\b\025\001\bU@\176$mapi\144\160\160B@@@\176$trim\144\160\160A@@@\176%equal\144\160\160B@@\144\180B\160\176\001\005\171\004!@\160\176\001\005\170\004#@@\151\176\1481caml_string_equal\160\144\004\t\160\144\004\t@\176\192\004k\001\000\204\001\025\144\001\025\144\192\004l\001\000\204\001\025\144\001\025\207@\176%index\144\160\160B@@@\176%iteri\144\160\160B@@@\176&concat\144\160\160B@@@\176&rindex\144\160\160B@@@\176'compare\144\160\160B@@\144\180B\160\176\001\004\169!x@\160\176\001\004\170!y@@\151\176\1483caml_string_compare\160\144\004\011\160\144\004\n@\176\192\004\151\001\000\203\001\025]\001\025y\192\004\152\001\000\203\001\025]\001\025\143@\176'escaped\144\160\160A@@@\176(contains\144\160\160B@@@\176)index_opt\144\160\160B@@@\176)lowercase\144\160\160A@@\144\180A\160\176\001\005y!s@@\147\192\151\176\004\215\160\004\212@\004\209\160\147\192\151\176\161`\146)lowercase\160\145\004\221@\004\219\160\147\192\151\176\004\206\160\004\203@\004\225\160\144\004\025@\176\192\004\202\001\000\222\001\027b\001\027p\192\004\203\001\000\222\001\027b\001\027w@@@\176\192\004\205\001\000\222\001\027b\001\027d\004\003@A@\176\004\002\192\004\207\001\000\222\001\027b\001\027~@@\176)uppercase\144\160\160A@@\144\180A\160\176\001\005w!s@@\147\192\151\176\004\255\160\004\252@\004\249\160\147\192\151\176\161_\146)uppercase\160\145\005\001\005@\005\001\003\160\147\192\151\176\004\246\160\004\243@\005\001\t\160\144\004\025@\176\192\004\242\001\000\220\001\0273\001\027A\192\004\243\001\000\220\001\0273\001\027H@@@\176\192\004\245\001\000\220\001\0273\001\0275\004\003@A@\176\004\002\192\004\247\001\000\220\001\0273\001\027O@@\176*capitalize\144\160\160A@@\144\180A\160\176\001\005{!s@@\147\192\151\176\005\001'\160\005\001$@\005\001!\160\147\192\151\176\161a\146*capitalize\160\145\005\001-@\005\001+\160\147\192\151\176\005\001\030\160\005\001\027@\005\0011\160\144\004\025@\176\192\005\001\026\001\000\224\001\027\146\001\027\161\192\005\001\027\001\000\224\001\027\146\001\027\168@@@\176\192\005\001\029\001\000\224\001\027\146\001\027\148\004\003@A@\176\004\002\192\005\001\031\001\000\224\001\027\146\001\027\175@@\176*index_from\144\160\160C@@@\176*rindex_opt\144\160\160B@@@\176+rindex_from\144\160\160C@@@\176,uncapitalize\144\160\160A@@\144\180A\160\176\001\005}!s@@\147\192\151\176\005\001^\160\005\001[@\005\001X\160\147\192\151\176\161b\146,uncapitalize\160\145\005\001d@\005\001b\160\147\192\151\176\005\001U\160\005\001R@\005\001h\160\144\004\025@\176\192\005\001Q\001\000\226\001\027\197\001\027\214\192\005\001R\001\000\226\001\027\197\001\027\221@@@\176\192\005\001T\001\000\226\001\027\197\001\027\199\004\003@A@\176\004\002\192\005\001V\001\000\226\001\027\197\001\027\228@@\176-contains_from\144\160\160C@@@\176-split_on_char\144\160\160B@@@\176.index_from_opt\144\160\160C@@@\176.rcontains_from\144\160\160C@@@\176/lowercase_ascii\144\160\160A@@\144\180A\160\176\001\004\162!s@@\147\192\151\176\005\001\154\160\005\001\151@\005\001\148\160\147\192\151\176\161d\146/lowercase_ascii\160\145\005\001\160@\005\001\158\160\147\192\151\176\005\001\145\160\005\001\142@\005\001\164\160\144\004\025@\176\192\005\001\141\001\000\195\001\024\170\001\024\190\192\005\001\142\001\000\195\001\024\170\001\024\197@@@\176\192\005\001\144\001\000\195\001\024\170\001\024\172\004\003@A@\176\004\002\192\005\001\146\001\000\195\001\024\170\001\024\204@@\176/rindex_from_opt\144\160\160C@@@\176/uppercase_ascii\144\160\160A@@\144\180A\160\176\001\004\160!s@@\147\192\151\176\005\001\199\160\005\001\196@\005\001\193\160\147\192\151\176\161c\146/uppercase_ascii\160\145\005\001\205@\005\001\203\160\147\192\151\176\005\001\190\160\005\001\187@\005\001\209\160\144\004\025@\176\192\005\001\186\001\000\193\001\024o\001\024\131\192\005\001\187\001\000\193\001\024o\001\024\138@@@\176\192\005\001\189\001\000\193\001\024o\001\024q\004\003@A@\176\004\002\192\005\001\191\001\000\193\001\024o\001\024\145@@\1760capitalize_ascii\144\160\160A@@\144\180A\160\176\001\004\164!s@@\147\192\151\176\005\001\239\160\005\001\236@\005\001\233\160\147\192\151\176\161e\1460capitalize_ascii\160\145\005\001\245@\005\001\243\160\147\192\151\176\005\001\230\160\005\001\227@\005\001\249\160\144\004\025@\176\192\005\001\226\001\000\197\001\024\230\001\024\251\192\005\001\227\001\000\197\001\024\230\001\025\002@@@\176\192\005\001\229\001\000\197\001\024\230\001\024\232\004\003@A@\176\004\002\192\005\001\231\001\000\197\001\024\230\001\025\t@@\1762uncapitalize_ascii\144\160\160A@@\144\180A\160\176\001\004\166!s@@\147\192\151\176\005\002\023\160\005\002\020@\005\002\017\160\147\192\151\176\161f\1462uncapitalize_ascii\160\145\005\002\029@\005\002\027\160\147\192\151\176\005\002\014\160\005\002\011@\005\002!\160\144\004\025@\176\192\005\002\n\001\000\199\001\025%\001\025<\192\005\002\011\001\000\199\001\025%\001\025C@@@\176\192\005\002\r\001\000\199\001\025%\001\025'\004\003@A@\176\004\002\192\005\002\015\001\000\199\001\025%\001\025J@@A",
171171
(* Belt_Id *)"\132\149\166\190\000\000\002\224\000\000\000\215\000\000\002\187\000\000\002\167\160\b\000\000 \000\176(hashable\144\160\160B@@@\176)hashableU\144\160\160B@@\144\180B\160\176\001\004\182$hash@\160\176\001\004\183\"eq@@\151\176\176@\145\160$hash\160\"eq@@\160\144\004\015\160\144\004\014@\176\1921others/belt_Id.ml\000e\001\011s\001\011s\192\004\002\000h\001\011\150\001\011\153@\176*comparable\144\160\160A@@@\176+comparableU\144\160\160A@@\144\180A\160\176\001\004w#cmp@@\151\176\176@\145\160#cmp@@\160\144\004\n@\176\192\004\027r\001\007\150\001\007\150\192\004\028u\001\007\185\001\007\188@\176,MakeHashable\144\160\160A@@\144\180A\160\176\001\005&!M@@\197A\176\001\004\174$hash@\151\176\161@\146$hash\160\144\004\012@\176\192&_none_A@\000\255\004\002A\197B\176\001\004\173$hash@\180A\160\176\001\004\175!a@@\147\192\144\004\022\160\144\004\007@\176\192\004A\000s\001\0120\001\012W\192\004B\000s\001\0120\001\012]@@\197A\176\001\004\177\"eq@\151\176\161A\146\"eq\160\144\004(@\004\028\197B\176\001\004\176\"eq@\180B\160\176\001\004\178!a@\160\176\001\004\179!b@@\147\192\144\004\022\160\144\004\n\160\144\004\t@\176\192\004_\000u\001\012i\001\012\142\192\004`\000u\001\012i\001\012\148@@\151\176\176@\145\160\0040\160\004\024@@\160\144\0044\160\144\004\029@\176\192\004l\000o\001\011\253\001\011\253\192\004m\000v\001\012\149\001\012\152@\176-MakeHashableU\144\160\160A@@\144\180A\160\176\001\005(!M@@\144\004\003\176.MakeComparable\144\160\160A@@\144\180A\160\176\001\005)!M@@\197A\176\001\004r#cmp@\151\176\161@\146#cmp\160\144\004\012@\004\\\197B\176\001\004q#cmp@\180B\160\176\001\004s!a@\160\176\001\004t!b@@\147\192\144\004\022\160\144\004\n\160\144\004\t@\176\192\004\159\000@\001\b\185\001\b\224\192\004\160\000@\001\b\185\001\b\231@@\151\176\176@\145\160\004\023@@\160\144\004\026@\176\192\004\169{\001\b\n\001\b\n\192\004\170\000A\001\b\232\001\b\235@\176/MakeComparableU\144\160\160A@@\144\180A\160\176\001\005+!M@@\144\004\003A",
172172
(* Complex *)"\132\149\166\190\000\000\000\194\000\000\000M\000\000\000\234\000\000\000\229\160\b\000\000<\000\176#add\144\160\160B@@@\176#arg\144\160\160A@@@\176#div\144\160\160B@@@\176#exp\144\160\160A@@@\176#inv\144\160\160A@@@\176#log\144\160\160A@@@\176#mul\144\160\160B@@@\176#neg\144\160\160A@@@\176#pow\144\160\160B@@@\176#sub\144\160\160B@@@\176$conj\144\160\160A@@@\176$norm\144\160\160A@@@\176$sqrt\144\160\160A@@@\176%norm2\144\160\160A@@@\176%polar\144\160\160B@@@A",
173-
(* Hashtbl *)"\132\149\166\190\000\000\001\212\000\000\000\138\000\000\001\200\000\000\001\171\160\b\000\000`\000\176#add\144\160\160C@@@\176#mem\144\160\160B@@@\176$Make\144\160\160A@@@\176$copy\144\160\160A@@@\176$find\144\160\160B@@@\176$fold\144\160\160C@@@\176$hash\144\160\160A@@@\176$iter\144\160\160B@@@\176%clear\144\160\160A@@@\176%reset\144\160\160A@@@\176%stats\144\160\160A@@@\176&create\144\160\160B@@@\176&length\144\160\160A@@\144\180A\160\176\001\005\021!h@@\151\176\161@\161$sizeA\160\144\004\t@\176\1925stdlib-406/hashtbl.ml\000|\001\015\142\001\015\157\192\004\002\000|\001\015\142\001\015\163@\176&remove\144\160\160B@@@\176'replace\144\160\160C@@@\176(find_all\144\160\160B@@@\176(find_opt\144\160\160B@@@\176)randomize\144\160\160A@@@\176*MakeSeeded\144\160\160A@@@\176*hash_param\144\160\160C@@@\176+seeded_hash\144\160\160B@@@\176-is_randomized\144\160\160A@@@\1761seeded_hash_param\144\160\160D@@@\1762filter_map_inplace\144\160\160B@@@A",
173+
(* Hashtbl *)"\132\149\166\190\000\000\001\212\000\000\000\138\000\000\001\200\000\000\001\171\160\b\000\000`\000\176#add\144\160\160C@@@\176#mem\144\160\160B@@@\176$Make\144\160\160A@@@\176$copy\144\160\160A@@@\176$find\144\160\160B@@@\176$fold\144\160\160C@@@\176$hash\144\160\160A@@@\176$iter\144\160\160B@@@\176%clear\144\160\160A@@@\176%reset\144\160\160A@@@\176%stats\144\160\160A@@@\176&create\144\160\160B@@@\176&length\144\160\160A@@\144\180A\160\176\001\005\018!h@@\151\176\161@\161$sizeA\160\144\004\t@\176\1925stdlib-406/hashtbl.ml\000|\001\015\142\001\015\157\192\004\002\000|\001\015\142\001\015\163@\176&remove\144\160\160B@@@\176'replace\144\160\160C@@@\176(find_all\144\160\160B@@@\176(find_opt\144\160\160B@@@\176)randomize\144\160\160A@@@\176*MakeSeeded\144\160\160A@@@\176*hash_param\144\160\160C@@@\176+seeded_hash\144\160\160B@@@\176-is_randomized\144\160\160A@@@\1761seeded_hash_param\144\160\160D@@@\1762filter_map_inplace\144\160\160B@@@A",
174174
(* Js_cast *)"\132\149\166\190\000\000\000\003\000\000\000\001\000\000\000\003\000\000\000\003\160\128A",
175175
(* Js_date *)"\132\149\166\190\000\000\000\003\000\000\000\001\000\000\000\003\000\000\000\003\160\128A",
176176
(* Js_dict *)"\132\149\166\190\000\000\000u\000\000\000%\000\000\000v\000\000\000p\160\240\176#get\144\160\160B@@@\176#map\144\160\160B@@@\176&values\144\160\160A@@@\176'entries\144\160\160A@@@\176(fromList\144\160\160A@@@\176)fromArray\144\160\160A@@@\176/unsafeDeleteKey\144\160\160B@@@A",

‎jscomp/runtime/caml_sys.ml

Lines changed: 0 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -49,7 +49,6 @@ let os_type : unit -> string = [%raw{|function(_){
4949
}|}]
5050
(* TODO: improve [js_pass_scope] to avoid remove unused n here *)
5151

52-
external now : unit -> float = "" [@@bs.val "Date.now"]
5352

5453

5554
(* let caml_initial_time = now () *. 0.001 *)
@@ -65,14 +64,6 @@ let caml_sys_time () =
6564
else uptime [%raw{|process|}] ()
6665

6766

68-
external random : unit -> float = "Math.random" [@@bs.val]
69-
70-
let caml_sys_random_seed () : nativeint array =
71-
[|
72-
Caml_nativeint_extern.of_float
73-
((Caml_nativeint_extern.to_float (Caml_nativeint_extern.logxor (Caml_nativeint_extern.of_float (now ()))
74-
0xffffffffn)) *. random ()) |]
75-
7667

7768

7869
(*

‎jscomp/runtime/caml_sys.mli

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -30,8 +30,6 @@ val caml_sys_time : unit -> float
3030

3131
val os_type : unit -> string
3232

33-
val caml_sys_random_seed : unit -> nativeint array
34-
3533
val caml_sys_system_command : string -> int
3634

3735
val caml_sys_getcwd : unit -> string

‎jscomp/runtime/release.ninja

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -53,7 +53,7 @@ build runtime/caml_splice_call.cmj : cc_cmi runtime/caml_splice_call.ml | runtim
5353
build runtime/caml_splice_call.cmi : cc runtime/caml_splice_call.mli | runtime/bs_stdlib_mini.cmi runtime/js.cmi runtime/js.cmj
5454
build runtime/caml_string.cmj : cc_cmi runtime/caml_string.ml | runtime/caml_string.cmi runtime/caml_string_extern.cmj
5555
build runtime/caml_string.cmi : cc runtime/caml_string.mli | runtime/bs_stdlib_mini.cmi runtime/js.cmi runtime/js.cmj
56-
build runtime/caml_sys.cmj : cc_cmi runtime/caml_sys.ml | runtime/caml_array_extern.cmj runtime/caml_nativeint_extern.cmj runtime/caml_sys.cmi runtime/caml_undefined_extern.cmj runtime/js.cmj
56+
build runtime/caml_sys.cmj : cc_cmi runtime/caml_sys.ml | runtime/caml_array_extern.cmj runtime/caml_sys.cmi runtime/caml_undefined_extern.cmj runtime/js.cmj
5757
build runtime/caml_sys.cmi : cc runtime/caml_sys.mli | runtime/bs_stdlib_mini.cmi runtime/js.cmi runtime/js.cmj
5858
build runtime/caml_array_extern.cmi runtime/caml_array_extern.cmj : cc runtime/caml_array_extern.ml | runtime/bs_stdlib_mini.cmi runtime/js.cmi runtime/js.cmj
5959
build runtime/caml_exceptions.cmi runtime/caml_exceptions.cmj : cc runtime/caml_exceptions.ml | runtime/bs_stdlib_mini.cmi runtime/js.cmi runtime/js.cmj

‎jscomp/stdlib-406/random.ml

Lines changed: 7 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -25,7 +25,9 @@
2525
passes all the Diehard tests.
2626
*)
2727

28-
external random_seed: unit -> int array = "caml_sys_random_seed"
28+
let random_seed: unit -> int array = fun _ ->
29+
let seed :int = [%raw "Math.floor(Math.random()*0x7fffffff)"] in
30+
[|seed|]
2931

3032
module State = struct
3133

@@ -124,12 +126,12 @@ module State = struct
124126
then invalid_arg "Random.int64"
125127
else int64aux s bound
126128

127-
129+
#if 0 then
128130
let nativeint =
129131
if Nativeint.size = 32
130132
then fun s bound -> Nativeint.of_int32 (int32 s (Nativeint.to_int32 bound))
131133
else fun s bound -> Int64.to_nativeint (int64 s (Int64.of_nativeint bound))
132-
134+
#end
133135

134136
(* Returns a float 0 <= x <= 1 with at most 60 bits of precision. *)
135137
let rawfloat s =
@@ -166,7 +168,9 @@ let default = {
166168
let bits () = State.bits default
167169
let int bound = State.int default bound
168170
let int32 bound = State.int32 default bound
171+
#if 0 then
169172
let nativeint bound = State.nativeint default bound
173+
#end
170174
let int64 bound = State.int64 default bound
171175
let float scale = State.float default scale
172176
let bool () = State.bool default

‎jscomp/stdlib-406/random.mli

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -45,11 +45,11 @@ val int : int -> int
4545
val int32 : Int32.t -> Int32.t
4646
(** [Random.int32 bound] returns a random integer between 0 (inclusive)
4747
and [bound] (exclusive). [bound] must be greater than 0. *)
48-
48+
#if 0 then
4949
val nativeint : Nativeint.t -> Nativeint.t
5050
(** [Random.nativeint bound] returns a random integer between 0 (inclusive)
5151
and [bound] (exclusive). [bound] must be greater than 0. *)
52-
52+
#end
5353
val int64 : Int64.t -> Int64.t
5454
(** [Random.int64 bound] returns a random integer between 0 (inclusive)
5555
and [bound] (exclusive). [bound] must be greater than 0. *)
@@ -90,7 +90,9 @@ module State : sig
9090
val bits : t -> int
9191
val int : t -> int -> int
9292
val int32 : t -> Int32.t -> Int32.t
93+
#if 0 then
9394
val nativeint : t -> Nativeint.t -> Nativeint.t
95+
#end
9496
val int64 : t -> Int64.t -> Int64.t
9597
val float : t -> float -> float
9698
val bool : t -> bool

0 commit comments

Comments
 (0)