Tweak

Author: bobzhang

jscomp/core/lam_compile_primitive.ml

@@ -450,7 +450,7 @@ let translate  loc
   | Poffsetint n ->
     E.int32_add (Ext_list.singleton_exn args) (E.small_int  n)      
   | Poffsetref n ->
-    let v = (Js_of_lam_block.field (Fld_record "contents") (Ext_list.singleton_exn args) 0l) in
+    let v = Js_of_lam_block.field Lambda.ref_field_info (Ext_list.singleton_exn args) 0l in
     E.seq (E.assign  v (E.int32_add v (E.small_int  n))) E.unit
   | Psequand -> (* TODO: rhs is possibly a tail call *)
     begin match args with

lib/4.06.1/unstable/js_compiler.ml

@@ -74259,7 +74259,7 @@ type tag_info =
 let default_tag_info : tag_info = Blk_na ""
 
 let ref_tag_info : tag_info = Blk_record [| "contents" |]
-
+  
 type field_dbg_info = 
   | Fld_na
   | Fld_record of string
@@ -120735,7 +120735,7 @@ let translate  loc
   | Poffsetint n ->
     E.int32_add (Ext_list.singleton_exn args) (E.small_int  n)      
   | Poffsetref n ->
-    let v = (Js_of_lam_block.field (Fld_record "contents") (Ext_list.singleton_exn args) 0l) in
+    let v = Js_of_lam_block.field Lambda.ref_field_info (Ext_list.singleton_exn args) 0l in
     E.seq (E.assign  v (E.int32_add v (E.small_int  n))) E.unit
   | Psequand -> (* TODO: rhs is possibly a tail call *)
     begin match args with

lib/4.06.1/whole_compiler.ml

@@ -63212,7 +63212,7 @@ type tag_info =
 let default_tag_info : tag_info = Blk_na ""
 
 let ref_tag_info : tag_info = Blk_record [| "contents" |]
-
+  
 type field_dbg_info = 
   | Fld_na
   | Fld_record of string
@@ -112408,7 +112408,7 @@ let translate  loc
   | Poffsetint n ->
     E.int32_add (Ext_list.singleton_exn args) (E.small_int  n)      
   | Poffsetref n ->
-    let v = (Js_of_lam_block.field (Fld_record "contents") (Ext_list.singleton_exn args) 0l) in
+    let v = Js_of_lam_block.field Lambda.ref_field_info (Ext_list.singleton_exn args) 0l in
     E.seq (E.assign  v (E.int32_add v (E.small_int  n))) E.unit
   | Psequand -> (* TODO: rhs is possibly a tail call *)
     begin match args with