snapshot changes

Author: bobzhang

jscomp/main/builtin_cmj_datasets.ml

@@ -365,8 +365,8 @@ let file_level_flags_handler (e : Parsetree.expression option) =
              | _ -> Location.raise_errorf ~loc:e.pexp_loc "string literal expected" )) in               
     Arg.parse_argv ~current:(ref 0)
       args buckle_script_flags ignore usage
-  ;Format.fprintf Format.err_formatter "%a %b@." 
-      Ext_obj.pp_any args !Js_config.cross_module_inline;
+  (* ;Format.fprintf Format.err_formatter "%a %b@." 
+      Ext_obj.pp_any args !Js_config.cross_module_inline; *)
   | Some e -> 
     Location.raise_errorf ~loc:e.pexp_loc "string array expected"
 

jscomp/main/js_main.ml

@@ -12,7 +12,7 @@
 (*   special exception on linking described in the file LICENSE.          *)
 (*                                                                        *)
 (**************************************************************************)
-
+[@@@bs.config { flags = [|"-bs-no-cross-module-opt" |]}]
 (* Module [Bigarray]: large, multi-dimensional, numerical arrays *)
 
 include CamlinternalBigarray

jscomp/stdlib-406/bigarray.ml

@@ -12,7 +12,7 @@
 (*   special exception on linking described in the file LICENSE.          *)
 (*                                                                        *)
 (**************************************************************************)
-
+[@@@bs.config { flags = [|"-bs-no-cross-module-opt" |]}]
 (* Registering OCaml values with the C runtime for later callbacks *)
 
 external register_named_value : string -> Obj.t -> unit

jscomp/stdlib-406/callback.ml

@@ -1,3 +1,4 @@
+[@@@bs.config { flags = [|"-bs-no-cross-module-opt"; |]}]
 (**************************************************************************)
 (*                                                                        *)
 (*                                 OCaml                                  *)

jscomp/stdlib-406/gc.ml

@@ -12,7 +12,7 @@
 (*   special exception on linking described in the file LICENSE.          *)
 (*                                                                        *)
 (**************************************************************************)
-
+[@@@bs.config { flags = [|"-bs-no-cross-module-opt" |]}]
 (* Module [UnixLabels]: labelled Unix module *)
 
 include Unix

jscomp/stdlib-406/unixLabels.ml

@@ -1,17 +1,18 @@
 'use strict';
 
+var Js_exn = require("../../lib/js/js_exn.js");
 var Belt_MapInt = require("../../lib/js/belt_MapInt.js");
 
 function should(b) {
   if (b) {
     return 0;
   } else {
-    throw new Error("IMPOSSIBLE");
+    return Js_exn.raiseError("IMPOSSIBLE");
   }
 }
 
 function test(param) {
-  var m = Belt_MapInt.empty;
+  var m = null;
   for(var i = 0; i <= 999999; ++i){
     m = Belt_MapInt.set(m, i, i);
   }

jscomp/test/bs_MapInt_test.js

@@ -105,7 +105,7 @@ function bench2(m) {
 function bench3(m) {
   var empty = {
     cmp: m.cmp,
-    data: Belt_MapDict.empty
+    data: null
   };
   var cmp = m.cmp;
   var table = empty.data;

jscomp/test/bs_hashtbl_string_test.js

@@ -5,7 +5,6 @@ var Belt_Id = require("../../lib/js/belt_Id.js");
 var Belt_Map = require("../../lib/js/belt_Map.js");
 var Belt_List = require("../../lib/js/belt_List.js");
 var Belt_Array = require("../../lib/js/belt_Array.js");
-var Belt_MapInt = require("../../lib/js/belt_MapInt.js");
 var Belt_MapDict = require("../../lib/js/belt_MapDict.js");
 var Belt_SetDict = require("../../lib/js/belt_SetDict.js");
 var Caml_primitive = require("../../lib/js/caml_primitive.js");
@@ -33,7 +32,7 @@ var Icmp2 = Belt_Id.comparable(Caml_primitive.caml_int_compare);
 
 var m0 = {
   cmp: Icmp.cmp,
-  data: Belt_MapDict.empty
+  data: null
 };
 
 var I2 = Belt_Id.comparable((function (x, y) {
@@ -42,12 +41,12 @@ var I2 = Belt_Id.comparable((function (x, y) {
 
 var m = {
   cmp: Icmp2.cmp,
-  data: Belt_MapDict.empty
+  data: null
 };
 
 var m2 = {
   cmp: I2.cmp,
-  data: Belt_MapDict.empty
+  data: null
 };
 
 var data = m.data;
@@ -69,13 +68,13 @@ var newm = {
 
 console.log(newm);
 
-var m11 = Belt_MapDict.set(Belt_MapDict.empty, 1, 1, Icmp.cmp);
+var m11 = Belt_MapDict.set(null, 1, 1, Icmp.cmp);
 
 console.log(m11);
 
 var v = {
   cmp: Icmp2.cmp,
-  data: Belt_SetDict.empty
+  data: null
 };
 
 var m_dict$1 = Belt_Map.getId(m);
@@ -165,9 +164,9 @@ var A = /* alias */0;
 
 var L = /* alias */0;
 
-var vv = Belt_MapInt.empty;
+var vv = null;
 
-var vv2 = Belt_MapInt.empty;
+var vv2 = null;
 
 var Md0 = /* alias */0;
 

jscomp/test/bs_map_set_dict_test.js

@@ -50,7 +50,7 @@ var mapOfArray = Belt_MapInt.fromArray;
 var setOfArray = Belt_SetInt.fromArray;
 
 function emptyMap(param) {
-  return Belt_MapInt.empty;
+  return null;
 }
 
 var v = Belt_Array.makeByAndShuffle(1000000, (function (i) {