rename ref primitives

Author: cometkim

jscomp/ml/rec_check.ml

@@ -173,7 +173,7 @@ let build_unguarded_env : Ident.t list -> Env.env =
 let is_ref : Types.value_description -> bool = function
   | {
       Types.val_kind =
-        Types.Val_prim { Primitive.prim_name = "%makemutable"; prim_arity = 1 };
+        Types.Val_prim { Primitive.prim_name = "%makeref"; prim_arity = 1 };
     } ->
       true
   | _ -> false

jscomp/ml/translcore.ml

@@ -199,9 +199,9 @@ let primitives_table =
       ("%loc_MODULE", Ploc Loc_MODULE);
 
       (* BEGIN Triples for  ref data type *)
-      ("%bs_ref_setfield0", Psetfield (0, Lambda.ref_field_set_info));
-      ("%bs_ref_field0", Pfield (0, Lambda.ref_field_info));
-      ("%makemutable", Pmakeblock Lambda.ref_tag_info);
+      ("%makeref", Pmakeblock Lambda.ref_tag_info);
+      ("%refset", Psetfield (0, Lambda.ref_field_set_info));
+      ("%refget", Pfield (0, Lambda.ref_field_info));
 
       ("%incr", Poffsetref 1);
       ("%decr", Poffsetref (-1));

jscomp/others/belt_internals.resi

@@ -30,7 +30,7 @@ external lsr: (int, int) => int = "%lsrint"
 external lxor: (int, int) => int = "%xorint"
 external asr: (int, int) => int = "%asrint"
 type ref<'a> = {mutable contents: 'a}
-external ref: 'a => ref<'a> = "%makemutable"
+external ref: 'a => ref<'a> = "%makeref"
 
 external \"||": (bool, bool) => bool = "%sequor"
 external \"&&": (bool, bool) => bool = "%sequand"

jscomp/runtime/bs_stdlib_mini.resi

@@ -32,7 +32,7 @@ external lsr: (int, int) => int = "%lsrint"
 external lxor: (int, int) => int = "%xorint"
 external asr: (int, int) => int = "%asrint"
 type ref<'a> = {mutable contents: 'a}
-external ref: 'a => ref<'a> = "%makemutable"
+external ref: 'a => ref<'a> = "%makeref"
 
 external \"||": (bool, bool) => bool = "%sequor"
 external \"&&": (bool, bool) => bool = "%sequand"

jscomp/runtime/list.res

@@ -1,3 +1,4 @@
 // FIXME:
 //   This exists for compatibility reason.
 //   Move this into Pervasives or Core
+

jscomp/runtime/map.res

@@ -1,3 +1,4 @@
 // FIXME:
 //   This exists for compatibility reason.
 //   Move this into Pervasives or Core
+

jscomp/runtime/set.res

@@ -1,3 +1,4 @@
 // FIXME:
 //   This exists for compatibility reason.
 //   Move this into Pervasives or Core
+

jscomp/stdlib-406/pervasives.res

@@ -187,9 +187,9 @@ external snd: (('a, 'b)) => 'b = "%field1"
 /* References */
 
 type ref<'a> = {mutable contents: 'a}
-external ref: 'a => ref<'a> = "%makemutable"
-external \"!": ref<'a> => 'a = "%bs_ref_field0"
-external \":=": (ref<'a>, 'a) => unit = "%bs_ref_setfield0"
+external ref: 'a => ref<'a> = "%makeref"
+external \"!": ref<'a> => 'a = "%refget"
+external \":=": (ref<'a>, 'a) => unit = "%refset"
 external incr: ref<int> => unit = "%incr"
 external decr: ref<int> => unit = "%decr"
 

jscomp/stdlib-406/pervasives.resi

@@ -556,17 +556,17 @@ type int32 = int
 type ref<'a> = {mutable contents: 'a}
 
 /** Return a fresh reference containing the given value. */
-external ref: 'a => ref<'a> = "%makemutable"
+external ref: 'a => ref<'a> = "%makeref"
 
 /** [!r] returns the current contents of reference [r].
    Equivalent to [fun r -> r.contents].
    Unary operator at precedence level 11/11.*/
-external \"!": ref<'a> => 'a = "%bs_ref_field0"
+external \"!": ref<'a> => 'a = "%refget"
 
 /** [r := a] stores the value of [a] in reference [r].
    Equivalent to [fun r v -> r.contents <- v].
    Right-associative operator at precedence level 1/11. */
-external \":=": (ref<'a>, 'a) => unit = "%bs_ref_setfield0"
+external \":=": (ref<'a>, 'a) => unit = "%refset"
 
 /** Increment the integer contained in the given reference.
    Equivalent to [fun r -> r := succ !r]. */

jscomp/test/test_per.res

@@ -163,8 +163,8 @@ external snd: (('a, 'b)) => 'b = "%field1"
 /* References */
 
 type ref<'a> = {mutable contents: 'a}
-external ref: 'a => ref<'a> = "%makemutable"
-external \"!": ref<'a> => 'a = "%bs_ref_field0"
-external \":=": (ref<'a>, 'a) => unit = "%bs_ref_setfield0"
+external ref: 'a => ref<'a> = "%makeref"
+external \"!": ref<'a> => 'a = "%refget"
+external \":=": (ref<'a>, 'a) => unit = "%refset"
 external incr: ref<int> => unit = "%incr"
 external decr: ref<int> => unit = "%decr"