Update bs_stdlib_mini for ref

bobzhang · bobzhang · commit f0b34c545dea · 2019-11-04T16:52:15.000+08:00
diff --git a/jscomp/runtime/bs_stdlib_mini.mli b/jscomp/runtime/bs_stdlib_mini.mli
@@ -32,8 +32,8 @@ external ( mod ) : int -> int -> int = "%modint"
 
 type 'a ref = { mutable contents : 'a }
 external ref : 'a -> 'a ref = "%makemutable"
-external ( ! ) : 'a ref -> 'a = "%field0"
-external ( := ) : 'a ref -> 'a -> unit = "%setfield0"
+external ( ! ) : 'a ref -> 'a = "%bs_ref_field0"
+external ( := ) : 'a ref -> 'a -> unit = "%bs_ref_setfield0"
 external incr : int ref -> unit = "%incr"
 external decr : int ref -> unit = "%decr"
 
diff --git a/lib/4.06.1/unstable/js_compiler.ml b/lib/4.06.1/unstable/js_compiler.ml
@@ -124645,7 +124645,7 @@ and compile_send  (meth_kind : Lam_compat.meth_kind)
           cont2 obj_code (k cobj) in
       match meth_kind with
       | Self ->
-        (* TODO: horrible hack -- fixed later *)
+        (* TODO: horrible hack -- fixed later -- CHECK*)
         cont3 nobj (fun aobj -> E.call ~info:Js_call_info.dummy
                        (Js_of_lam_array.ref_array
                           (E.array_index_by_int aobj 0l) label )
diff --git a/lib/4.06.1/whole_compiler.ml b/lib/4.06.1/whole_compiler.ml
@@ -116503,7 +116503,7 @@ and compile_send  (meth_kind : Lam_compat.meth_kind)
           cont2 obj_code (k cobj) in
       match meth_kind with
       | Self ->
-        (* TODO: horrible hack -- fixed later *)
+        (* TODO: horrible hack -- fixed later -- CHECK*)
         cont3 nobj (fun aobj -> E.call ~info:Js_call_info.dummy
                        (Js_of_lam_array.ref_array
                           (E.array_index_by_int aobj 0l) label )
diff --git a/lib/js/belt_MapDict.js b/lib/js/belt_MapDict.js
@@ -41,7 +41,7 @@ function updateU(t, newK, f, cmp) {
             var kr = [/* contents */r.key];
             var vr = [/* contents */r.value];
             var r$1 = Belt_internalAVLtree.removeMinAuxWithRef(r, kr, vr);
-            return Belt_internalAVLtree.bal(l, kr[0], vr[0], r$1);
+            return Belt_internalAVLtree.bal(l, kr[/* contents */0], vr[/* contents */0], r$1);
           } else {
             return l;
           }
@@ -94,7 +94,7 @@ function removeAux0(n, x, cmp) {
         var kr = [/* contents */r.key];
         var vr = [/* contents */r.value];
         var r$1 = Belt_internalAVLtree.removeMinAuxWithRef(r, kr, vr);
-        return Belt_internalAVLtree.bal(l, kr[0], vr[0], r$1);
+        return Belt_internalAVLtree.bal(l, kr[/* contents */0], vr[/* contents */0], r$1);
       } else {
         return l;
       }
@@ -149,7 +149,7 @@ function splitAuxPivot(n, x, pres, cmp) {
   var r = n.right;
   var c = cmp(x, v);
   if (c === 0) {
-    pres[0] = Caml_option.some(d);
+    pres[/* contents */0] = Caml_option.some(d);
     return /* tuple */[
             l,
             r
@@ -187,7 +187,7 @@ function split(n, x, cmp) {
     var v = splitAuxPivot(n, x, pres, cmp);
     return /* tuple */[
             v,
-            pres[0]
+            pres[/* contents */0]
           ];
   } else {
     return /* tuple */[
@@ -210,7 +210,7 @@ function mergeU(s1, s2, f, cmp) {
         var r1 = s1.right;
         var d2 = [/* contents */undefined];
         var match = splitAuxPivot(s2, v1, d2, cmp);
-        var d2$1 = d2[0];
+        var d2$1 = d2[/* contents */0];
         var newLeft = mergeU(l1, match[0], f, cmp);
         var newD = f(v1, Caml_option.some(d1), d2$1);
         var newRight = mergeU(r1, match[1], f, cmp);
@@ -222,7 +222,7 @@ function mergeU(s1, s2, f, cmp) {
         var r2 = s2.right;
         var d1$1 = [/* contents */undefined];
         var match$1 = splitAuxPivot(s1, v2, d1$1, cmp);
-        var d1$2 = d1$1[0];
+        var d1$2 = d1$1[/* contents */0];
         var newLeft$1 = mergeU(match$1[0], l2, f, cmp);
         var newD$1 = f(v2, d1$2, Caml_option.some(d2$2));
         var newRight$1 = mergeU(match$1[1], r2, f, cmp);
diff --git a/lib/js/belt_MapInt.js b/lib/js/belt_MapInt.js
@@ -38,7 +38,7 @@ function updateU(t, x, f) {
             var kr = [/* contents */r.key];
             var vr = [/* contents */r.value];
             var r$1 = Belt_internalAVLtree.removeMinAuxWithRef(r, kr, vr);
-            return Belt_internalAVLtree.bal(l, kr[0], vr[0], r$1);
+            return Belt_internalAVLtree.bal(l, kr[/* contents */0], vr[/* contents */0], r$1);
           } else {
             return l;
           }
@@ -90,7 +90,7 @@ function removeAux(n, x) {
         var kr = [/* contents */r.key];
         var vr = [/* contents */r.value];
         var r$1 = Belt_internalAVLtree.removeMinAuxWithRef(r, kr, vr);
-        return Belt_internalAVLtree.bal(l, kr[0], vr[0], r$1);
+        return Belt_internalAVLtree.bal(l, kr[/* contents */0], vr[/* contents */0], r$1);
       } else {
         return l;
       }
diff --git a/lib/js/belt_MapString.js b/lib/js/belt_MapString.js
@@ -38,7 +38,7 @@ function updateU(t, x, f) {
             var kr = [/* contents */r.key];
             var vr = [/* contents */r.value];
             var r$1 = Belt_internalAVLtree.removeMinAuxWithRef(r, kr, vr);
-            return Belt_internalAVLtree.bal(l, kr[0], vr[0], r$1);
+            return Belt_internalAVLtree.bal(l, kr[/* contents */0], vr[/* contents */0], r$1);
           } else {
             return l;
           }
@@ -90,7 +90,7 @@ function removeAux(n, x) {
         var kr = [/* contents */r.key];
         var vr = [/* contents */r.value];
         var r$1 = Belt_internalAVLtree.removeMinAuxWithRef(r, kr, vr);
-        return Belt_internalAVLtree.bal(l, kr[0], vr[0], r$1);
+        return Belt_internalAVLtree.bal(l, kr[/* contents */0], vr[/* contents */0], r$1);
       } else {
         return l;
       }
diff --git a/lib/js/belt_MutableSet.js b/lib/js/belt_MutableSet.js
@@ -89,7 +89,7 @@ function removeCheck0(nt, x, removed, cmp) {
   var k = nt.value;
   var c = cmp(x, k);
   if (c === 0) {
-    removed[0] = true;
+    removed[/* contents */0] = true;
     var l = nt.left;
     var r = nt.right;
     if (l !== null) {
@@ -129,7 +129,7 @@ function removeCheck(d, v) {
     if (newRoot !== oldRoot) {
       d.data = newRoot;
     }
-    return removed[0];
+    return removed[/* contents */0];
   } else {
     return false;
   }
@@ -153,7 +153,7 @@ function addCheck0(t, x, added, cmp) {
       return Belt_internalAVLset.balMutate(t);
     }
   } else {
-    added[0] = true;
+    added[/* contents */0] = true;
     return Belt_internalAVLset.singleton(x);
   }
 }
@@ -165,7 +165,7 @@ function addCheck(m, e) {
   if (newRoot !== oldRoot) {
     m.data = newRoot;
   }
-  return added[0];
+  return added[/* contents */0];
 }
 
 function add(m, e) {
diff --git a/lib/js/belt_MutableSetInt.js b/lib/js/belt_MutableSetInt.js
@@ -88,7 +88,7 @@ function removeMany(d, xs) {
 function removeCheck0(nt, x, removed) {
   var k = nt.value;
   if (x === k) {
-    removed[0] = true;
+    removed[/* contents */0] = true;
     var l = nt.left;
     var r = nt.right;
     if (l !== null) {
@@ -128,7 +128,7 @@ function removeCheck(d, v) {
     if (newRoot !== oldRoot) {
       d.data = newRoot;
     }
-    return removed[0];
+    return removed[/* contents */0];
   } else {
     return false;
   }
@@ -151,7 +151,7 @@ function addCheck0(t, x, added) {
       return Belt_internalAVLset.balMutate(t);
     }
   } else {
-    added[0] = true;
+    added[/* contents */0] = true;
     return Belt_internalAVLset.singleton(x);
   }
 }
@@ -163,7 +163,7 @@ function addCheck(m, e) {
   if (newRoot !== oldRoot) {
     m.data = newRoot;
   }
-  return added[0];
+  return added[/* contents */0];
 }
 
 function add(d, k) {
diff --git a/lib/js/belt_MutableSetString.js b/lib/js/belt_MutableSetString.js
@@ -88,7 +88,7 @@ function removeMany(d, xs) {
 function removeCheck0(nt, x, removed) {
   var k = nt.value;
   if (x === k) {
-    removed[0] = true;
+    removed[/* contents */0] = true;
     var l = nt.left;
     var r = nt.right;
     if (l !== null) {
@@ -128,7 +128,7 @@ function removeCheck(d, v) {
     if (newRoot !== oldRoot) {
       d.data = newRoot;
     }
-    return removed[0];
+    return removed[/* contents */0];
   } else {
     return false;
   }
@@ -151,7 +151,7 @@ function addCheck0(t, x, added) {
       return Belt_internalAVLset.balMutate(t);
     }
   } else {
-    added[0] = true;
+    added[/* contents */0] = true;
     return Belt_internalAVLset.singleton(x);
   }
 }
@@ -163,7 +163,7 @@ function addCheck(m, e) {
   if (newRoot !== oldRoot) {
     m.data = newRoot;
   }
-  return added[0];
+  return added[/* contents */0];
 }
 
 function add(d, k) {
diff --git a/lib/js/belt_SetDict.js b/lib/js/belt_SetDict.js
@@ -43,7 +43,7 @@ function remove(t, x, cmp) {
         if (r !== null) {
           var v$1 = [/* contents */r.value];
           var r$1 = Belt_internalAVLset.removeMinAuxWithRef(r, v$1);
-          return Belt_internalAVLset.bal(l, v$1[0], r$1);
+          return Belt_internalAVLset.bal(l, v$1[/* contents */0], r$1);
         } else {
           return l;
         }
@@ -133,7 +133,7 @@ function splitAuxPivot(cmp, n, x, pres) {
   var r = n.right;
   var c = cmp(x, v);
   if (c === 0) {
-    pres[0] = true;
+    pres[/* contents */0] = true;
     return /* tuple */[
             l,
             r
@@ -171,7 +171,7 @@ function split(t, x, cmp) {
     var v = splitAuxPivot(cmp, t, x, pres);
     return /* tuple */[
             v,
-            pres[0]
+            pres[/* contents */0]
           ];
   } else {
     return /* tuple */[
@@ -225,7 +225,7 @@ function intersect(s1, s2, cmp) {
     var match = splitAuxPivot(cmp, s2, v1, pres);
     var ll = intersect(l1, match[0], cmp);
     var rr = intersect(r1, match[1], cmp);
-    if (pres[0]) {
+    if (pres[/* contents */0]) {
       return Belt_internalAVLset.joinShared(ll, v1, rr);
     } else {
       return Belt_internalAVLset.concatShared(ll, rr);
@@ -244,7 +244,7 @@ function diff(s1, s2, cmp) {
     var match = splitAuxPivot(cmp, s2, v1, pres);
     var ll = diff(l1, match[0], cmp);
     var rr = diff(r1, match[1], cmp);
-    if (pres[0]) {
+    if (pres[/* contents */0]) {
       return Belt_internalAVLset.concatShared(ll, rr);
     } else {
       return Belt_internalAVLset.joinShared(ll, v1, rr);
diff --git a/lib/js/belt_SetInt.js b/lib/js/belt_SetInt.js
@@ -52,7 +52,7 @@ function remove(t, x) {
         if (r !== null) {
           var v$1 = [/* contents */r.value];
           var r$1 = Belt_internalAVLset.removeMinAuxWithRef(r, v$1);
-          return Belt_internalAVLset.bal(l, v$1[0], r$1);
+          return Belt_internalAVLset.bal(l, v$1[/* contents */0], r$1);
         } else {
           return l;
         }
@@ -130,7 +130,7 @@ function splitAuxPivot(n, x, pres) {
   var v = n.value;
   var r = n.right;
   if (x === v) {
-    pres[0] = true;
+    pres[/* contents */0] = true;
     return /* tuple */[
             l,
             r
@@ -168,7 +168,7 @@ function split(t, x) {
     var v = splitAuxPivot(t, x, pres);
     return /* tuple */[
             v,
-            pres[0]
+            pres[/* contents */0]
           ];
   } else {
     return /* tuple */[
@@ -222,7 +222,7 @@ function intersect(s1, s2) {
     var match = splitAuxPivot(s2, v1, pres);
     var ll = intersect(l1, match[0]);
     var rr = intersect(r1, match[1]);
-    if (pres[0]) {
+    if (pres[/* contents */0]) {
       return Belt_internalAVLset.joinShared(ll, v1, rr);
     } else {
       return Belt_internalAVLset.concatShared(ll, rr);
@@ -241,7 +241,7 @@ function diff(s1, s2) {
     var match = splitAuxPivot(s2, v1, pres);
     var ll = diff(l1, match[0]);
     var rr = diff(r1, match[1]);
-    if (pres[0]) {
+    if (pres[/* contents */0]) {
       return Belt_internalAVLset.concatShared(ll, rr);
     } else {
       return Belt_internalAVLset.joinShared(ll, v1, rr);
diff --git a/lib/js/belt_SetString.js b/lib/js/belt_SetString.js
@@ -52,7 +52,7 @@ function remove(t, x) {
         if (r !== null) {
           var v$1 = [/* contents */r.value];
           var r$1 = Belt_internalAVLset.removeMinAuxWithRef(r, v$1);
-          return Belt_internalAVLset.bal(l, v$1[0], r$1);
+          return Belt_internalAVLset.bal(l, v$1[/* contents */0], r$1);
         } else {
           return l;
         }
@@ -130,7 +130,7 @@ function splitAuxPivot(n, x, pres) {
   var v = n.value;
   var r = n.right;
   if (x === v) {
-    pres[0] = true;
+    pres[/* contents */0] = true;
     return /* tuple */[
             l,
             r
@@ -168,7 +168,7 @@ function split(t, x) {
     var v = splitAuxPivot(t, x, pres);
     return /* tuple */[
             v,
-            pres[0]
+            pres[/* contents */0]
           ];
   } else {
     return /* tuple */[
@@ -222,7 +222,7 @@ function intersect(s1, s2) {
     var match = splitAuxPivot(s2, v1, pres);
     var ll = intersect(l1, match[0]);
     var rr = intersect(r1, match[1]);
-    if (pres[0]) {
+    if (pres[/* contents */0]) {
       return Belt_internalAVLset.joinShared(ll, v1, rr);
     } else {
       return Belt_internalAVLset.concatShared(ll, rr);
@@ -241,7 +241,7 @@ function diff(s1, s2) {
     var match = splitAuxPivot(s2, v1, pres);
     var ll = diff(l1, match[0]);
     var rr = diff(r1, match[1]);
-    if (pres[0]) {
+    if (pres[/* contents */0]) {
       return Belt_internalAVLset.concatShared(ll, rr);
     } else {
       return Belt_internalAVLset.joinShared(ll, v1, rr);
diff --git a/lib/js/belt_internalAVLset.js b/lib/js/belt_internalAVLset.js
@@ -157,7 +157,7 @@ function removeMinAuxWithRef(n, v) {
   if (ln !== null) {
     return bal(removeMinAuxWithRef(ln, v), kn, rn);
   } else {
-    v[0] = kn;
+    v[/* contents */0] = kn;
     return rn;
   }
 }
@@ -303,7 +303,7 @@ function concatShared(t1, t2) {
     if (t2 !== null) {
       var v = [/* contents */t2.value];
       var t2r = removeMinAuxWithRef(t2, v);
-      return joinShared(t1, v[0], t2r);
+      return joinShared(t1, v[/* contents */0], t2r);
     } else {
       return t1;
     }
diff --git a/lib/js/belt_internalAVLtree.js b/lib/js/belt_internalAVLtree.js
@@ -240,8 +240,8 @@ function removeMinAuxWithRef(n, kr, vr) {
   if (ln !== null) {
     return bal(removeMinAuxWithRef(ln, kr, vr), kn, vn, rn);
   } else {
-    kr[0] = kn;
-    vr[0] = vn;
+    kr[/* contents */0] = kn;
+    vr[/* contents */0] = vn;
     return rn;
   }
 }
@@ -471,7 +471,7 @@ function concat(t1, t2) {
       var kr = [/* contents */t2.key];
       var vr = [/* contents */t2.value];
       var t2r = removeMinAuxWithRef(t2, kr, vr);
-      return join(t1, kr[0], vr[0], t2r);
+      return join(t1, kr[/* contents */0], vr[/* contents */0], t2r);
     } else {
       return t1;
     }
diff --git a/lib/js/belt_internalMapInt.js b/lib/js/belt_internalMapInt.js
diff --git a/lib/js/belt_internalMapString.js b/lib/js/belt_internalMapString.js
diff --git a/lib/js/caml_chrome_debugger.js b/lib/js/caml_chrome_debugger.js
diff --git a/lib/js/caml_exceptions.js b/lib/js/caml_exceptions.js
diff --git a/lib/js/caml_obj.js b/lib/js/caml_obj.js

Original file line number	Diff line number	Diff line change
`@@ -89,7 +89,7 @@ function removeCheck0(nt, x, removed, cmp) {`
`89`	`89`	`var k = nt.value;`
`90`	`90`	`var c = cmp(x, k);`
`91`	`91`	`if (c === 0) {`
`92`		`- removed[0] = true;`
	`92`	`+ removed[/* contents */0] = true;`
`93`	`93`	`var l = nt.left;`
`94`	`94`	`var r = nt.right;`
`95`	`95`	`if (l !== null) {`
`@@ -129,7 +129,7 @@ function removeCheck(d, v) {`
`129`	`129`	`if (newRoot !== oldRoot) {`
`130`	`130`	`d.data = newRoot;`
`131`	`131`	`}`
`132`		`- return removed[0];`
	`132`	`+ return removed[/* contents */0];`
`133`	`133`	`} else {`
`134`	`134`	`return false;`
`135`	`135`	`}`
`@@ -153,7 +153,7 @@ function addCheck0(t, x, added, cmp) {`
`153`	`153`	`return Belt_internalAVLset.balMutate(t);`
`154`	`154`	`}`
`155`	`155`	`} else {`
`156`		`- added[0] = true;`
	`156`	`+ added[/* contents */0] = true;`
`157`	`157`	`return Belt_internalAVLset.singleton(x);`
`158`	`158`	`}`
`159`	`159`	`}`
`@@ -165,7 +165,7 @@ function addCheck(m, e) {`
`165`	`165`	`if (newRoot !== oldRoot) {`
`166`	`166`	`m.data = newRoot;`
`167`	`167`	`}`
`168`		`- return added[0];`
	`168`	`+ return added[/* contents */0];`
`169`	`169`	`}`
`170`	`170`
`171`	`171`	`function add(m, e) {`
Original file line number	Diff line number	Diff line change
`@@ -88,7 +88,7 @@ function removeMany(d, xs) {`
`88`	`88`	`function removeCheck0(nt, x, removed) {`
`89`	`89`	`var k = nt.value;`
`90`	`90`	`if (x === k) {`
`91`		`- removed[0] = true;`
	`91`	`+ removed[/* contents */0] = true;`
`92`	`92`	`var l = nt.left;`
`93`	`93`	`var r = nt.right;`
`94`	`94`	`if (l !== null) {`
`@@ -128,7 +128,7 @@ function removeCheck(d, v) {`
`128`	`128`	`if (newRoot !== oldRoot) {`
`129`	`129`	`d.data = newRoot;`
`130`	`130`	`}`
`131`		`- return removed[0];`
	`131`	`+ return removed[/* contents */0];`
`132`	`132`	`} else {`
`133`	`133`	`return false;`
`134`	`134`	`}`
`@@ -151,7 +151,7 @@ function addCheck0(t, x, added) {`
`151`	`151`	`return Belt_internalAVLset.balMutate(t);`
`152`	`152`	`}`
`153`	`153`	`} else {`
`154`		`- added[0] = true;`
	`154`	`+ added[/* contents */0] = true;`
`155`	`155`	`return Belt_internalAVLset.singleton(x);`
`156`	`156`	`}`
`157`	`157`	`}`
`@@ -163,7 +163,7 @@ function addCheck(m, e) {`
`163`	`163`	`if (newRoot !== oldRoot) {`
`164`	`164`	`m.data = newRoot;`
`165`	`165`	`}`
`166`		`- return added[0];`
	`166`	`+ return added[/* contents */0];`
`167`	`167`	`}`
`168`	`168`
`169`	`169`	`function add(d, k) {`
Original file line number	Diff line number	Diff line change
`@@ -157,7 +157,7 @@ function removeMinAuxWithRef(n, v) {`
`157`	`157`	`if (ln !== null) {`
`158`	`158`	`return bal(removeMinAuxWithRef(ln, v), kn, rn);`
`159`	`159`	`} else {`
`160`		`- v[0] = kn;`
	`160`	`+ v[/* contents */0] = kn;`
`161`	`161`	`return rn;`
`162`	`162`	`}`
`163`	`163`	`}`
`@@ -303,7 +303,7 @@ function concatShared(t1, t2) {`
`303`	`303`	`if (t2 !== null) {`
`304`	`304`	`var v = [/* contents */t2.value];`
`305`	`305`	`var t2r = removeMinAuxWithRef(t2, v);`
`306`		`- return joinShared(t1, v[0], t2r);`
	`306`	`+ return joinShared(t1, v[/* contents */0], t2r);`
`307`	`307`	`} else {`
`308`	`308`	`return t1;`
`309`	`309`	`}`
Original file line number	Diff line number	Diff line change
`@@ -240,8 +240,8 @@ function removeMinAuxWithRef(n, kr, vr) {`
`240`	`240`	`if (ln !== null) {`
`241`	`241`	`return bal(removeMinAuxWithRef(ln, kr, vr), kn, vn, rn);`
`242`	`242`	`} else {`
`243`		`- kr[0] = kn;`
`244`		`- vr[0] = vn;`
	`243`	`+ kr[/* contents */0] = kn;`
	`244`	`+ vr[/* contents */0] = vn;`
`245`	`245`	`return rn;`
`246`	`246`	`}`
`247`	`247`	`}`
`@@ -471,7 +471,7 @@ function concat(t1, t2) {`
`471`	`471`	`var kr = [/* contents */t2.key];`
`472`	`472`	`var vr = [/* contents */t2.value];`
`473`	`473`	`var t2r = removeMinAuxWithRef(t2, kr, vr);`
`474`		`- return join(t1, kr[0], vr[0], t2r);`
	`474`	`+ return join(t1, kr[/* contents /0], vr[/ contents */0], t2r);`
`475`	`475`	`} else {`
`476`	`476`	`return t1;`
`477`	`477`	`}`